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I.   INTRODUCTION 

The  United  States  intelligence  community  has  been  collect- 
ing electromagnetic  signals  for  many  years.   The  U.S.  Navy 
has  been  involved  in  countering  those  signals  considered 
threats  since  World  War  II.   This  countering  has  taken  on  many 
shapes  and  forms-from  exploitation  to  sensor  denial  through 
active  countermeasures . 

The  U.S.  Navy's  first  active  airborne  jamming  platform  was 
the  EA-1,  followed  by  the  EKA-3.   Neither  aircraft  were  ini- 
tially designed  to  perform  electronic  warfare  missions.   The 
newest  and  most  sophisticated  naval  tactical  airborne  jamming 
aircraft  is  the  EA-6B. 

Previously  the  Electronic  Warfare  Officer  (EWO)  planned 
his  electronic  warfare  missions  by  hand.   Today,  the  EA-6B 
EWO  must  also  plan  his  missions  by  hand  against  an  Electronic 
Order  of  Battle  (EOB)  consisting  of  approximately:   /~1_7 

1.  14,000  known  land  sites  with  a  total  of  62,000  emitters; 

2.  1,200  types  of  commercial  and  combatant  aircraft  and 
missile  systems; 

3.  28,000  commercial  and  combatant  surface  ships; 

4.  1,100  submarines;  and 

5.  350  different  missile  systems. 

Against  an  EOB  at  this  magnitude,  it  is  a  formidable  task 
for  an  EWO  to  plan  an  effective  electronic  warfare  mission  in 
a  timely  manner . 


The  initial  stages  of  planning  an  electronic  warfare  mis- 
sion are  quite  time  consuming.  It  consists  of  gathering  num- 
erous publications  such  as  the  kilting  lists,  Radar  Order  of 
Battle,  Radar  Handbook,  Tacmanuals,  etc.  The  planner  must  then 
sort  through  them  to  retrieve  the  required  information (e .g. 
site  location,  emitter  parameters,  etc.)  before  the  actual 
strike  planning  can  begin.  Once  the  charts  depicting  the  EOB, 
radar  and  weapon  envelopes,  and  aircraft  route  of  flight  have 
been  completed,  the  scenario  may  then  be  subjectively  analyzed 
and  jammer  positions  optimized.  Some  noise  jamming  effective- 
ness calculations  may  be  performed.  However,  as  a  general  rule 
they  are  not  since  they  are  very  time  consuming  and  cumber- 
some. Also,  the  results  are  not  accurate  for  the  newer  modu- 
lations available  to  the  EWO. 

As  the  threat  library  increases  so  do  the  EWO ' s  problems. 
By  automating  the  majority  of  the  "bookkeeping",  the  EWO  will 
have  more  time  available  to  subjectively  analyze  the  scenario. 


II.   BACKGROUND 

Research  at  the  Naval  Postgraduate  School  in  computer 
aided  electronic  warfare  mission  planning  was  initially  com- 
pleted in  June  1977  by  Beaudet  /~2_7  and  Watts  /'"3_7-   They 
were  followed  in  March  197  8  by  Odell  /  4_/.   The  resulting 
papers  dealt  with  a  particular  section  or  facet  of  the  mis- 
sion planning  process. 

Watts  /  3_/  dealt  with  the  problem  of  determining  an  op- 
timum route  for  the  jamming  aircraft.   For  his  computer  simu- 
lation, a  modified  escort  mission  profile  was  used.   This 
type  of  profile  permits  the  jamming  aircraft  to  accompany 
the  strike  group  only  in  those  areas  where  the  exposure  to 
enemy  threat  is  set  to  an  EWO  determined  maximum  level. 

The  optimum  route  is  determined  by  starting  at  the  point 
where  the  strike  group's  exposure  to  is  the  greatest.   For 
this  position  and  time,  an  optimum  jammer  position  is  compu- 
ted.  The  program  then  computes  the  route  in  positive  and 
negative  time  from  the  previous  optimum  point.   In  theory, 
this  is  the  optimum  route.   In  actuality,  the  simulation  cal- 
culates several  optimum  routes,  each  with  its  own  measure  of 
effectiveness.   All  of  these  possible  routes  are  presented  to 
the  operator  who  makes  the  final  selection. 

Beaudet  developed  computer  software  that  automated  many 
of  the  initial  processes  involved  in  electronic  warfare  mis- 
sion planning.   A  series  of  operator-computer  interfaces  were 


utilized  to  keep  the  planner  integrally  involved  in  the  planning 
process.   This  eliminated  a  substantial  portion  of  the  mission 
planning  drudgery. 

Beaiidet '  s  program  was  designed  to  accomplish  the  following: 

1.  Plot  a  strike  force  route-of-f light  based  on  operator 
entered  turn  point  coordinates; 

2 .  Produce  a  complete  electronic  order  of  battle  (EOB) 
printout  of  the  area  of  interest. 

3 .  Visually  present  emitter  detection  envelopes  and 
flight  paths  based  on  steps  1  and  2. 

4.  Compute  and  provide  to  the  mission  planner,  a  complete 
navigation  solution  and  threat  emitter  reaction  infor- 
mation for  the  strike. 

This  simulation  was  accomplished  on  an  IBM  360/67  general 
purpose  computer  with  an  interactive  graphics  display  terminal. 
The  80  0  step  program  was  written  in  FORTRAN  IV  and  required 
10/000  words  of  memory. 

Beaudet  proved  automation  of  EA-6B  mission  planning  is 
feasible.   Odell  attempted  to  make  it  practical.   His  research 
revealed  that  with  the  exception  of  the  WANG  2200T,  most  com- 
puter systems  on  board  today's  aircraft  carriers  were  either 
inaccessible  to  EA-6B  aircrews  or  were  so  overworked  that 
usage  would  be  impractical. 

Odell 's  design  objectives  were  to  automate  as  much  of  the 
mission  planning  process  as  possible  and  to  optimize  the 
jamming  route  selection  criteria. 

He  planned  to  accomplish  the  first  objective  by  converting 
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Beaudet's  program  from  FORTRAN  to  WANG  Basic.   However,  after 
conversion,  the  program  was  too  large  for  the  WANG ' s  internal 
memory.   It  was  subdivided  into  three  modules.   Each  module 
was  loaded  into  memory  from  a  floppy  disk  as  required. 

His  second  objective  was  achieved  by  a  simple  optimization 
scheme  based  on  the  presence  of  a  jamming  aircraft  in  the 
threat  radar  beam  width,  distance  from  the  threat  radar,  strike 
group  position,  and  possible  EA-6B  positions.   This  scheme 
may  not  produce  the  definitive  optimum  route  for  all  situa- 
tions involving  all  types  of  jamming.   However,  it  does  pre- 
sent the  operator  with  another  possible  route  from  which  to 
select  his  route  of  flight. 

The  proposed  source  for  Beaudet's  and  Odell's  electronic 
order  of  battle  was  the  NIPS  computer  located  in  the  carrier's 
intelligence  center.   From  this  data  base,  all  of  the  required 
information  for  supporting  the  program  would  be  obtained  via 
an  interface  with  the  WANG.   This  critical  interface  is  not 
and  will  not  be  available  in  the  foreseeable  future. 
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III.   DESIGN  CONSIDERATIONS 

The  primary  objective  of  this  project  was  to  design  and 
deploy  an  EA-6B  computerized  mission  planning  program  uti- 
lizing Beaudet's  and  Odell's  concepts.   This  had  to  be  accom- 
.plished  using  the  existing  assets  currently  on  board  U.S.  air- 
craft carriers.   An  IOC  (Initial  Operational  Capability)  of 
September  1978  was  scheduled.   This  coincided  with  TACELRON 
(Tactical  Electronic  Warfare  Squadron)  132 's  West  Pac  deploy- 
ment.  The  critical  factor  was  the  availability  of  a  suitable 
data  base.   The  carrier's  NIPS  (Naval  Information  Processing 
System)  computer,  located  in  CVIC  (Carrier's  Intelligence 
Center) ,  does  not  allow  for  direct  access  from  other  computers 
The  interface  hardware  and  software  between  the  WANG  2200T  and 
NIPS  is  currently  under  development.   It  will  not  become 
available  for  approximately  three  years . 

The  various  naval  and  national  intelligence  sources  were 
contacted.  All  could  supply  a  data  base  but  not  on  the  floppy 
disk  required  by  the  WANG.  Fortunately,  the  Naval  Electronic 
Engineering  Office  (NEEO)  in  Damneck,  Virginia,  could  supply 
the  required  data  base  in  the  desired  foirmat  and  on  the  WANG 
floppy  disk.  This  support  could  be  provided  on  a  continuing 
bases  and  at  a  reasonable  cost. 

Efficient  data  base  management  prohibited  coupling  a  data 
base  stored  on  a  floppy  disk  to  Odell's  program.   Therefore 
new  programs  were  written  using  the  same  goals  and  ideas .   In 
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addition  the  programs  were  to  meet  the  following  additional 
criteria: 

1.  They  had  to  be  simple  to  operate.   Operator  training 
time  had  to  be  kept  to  a  minimum. 

2.  The  resultant  product  had  to  be  flexible  and  easily 
changed  to  meet  the  changing  needs  of  the  EA-6B 
squadrons . 

It  was  decided  at  the  onset  that  if  at  all  possible,  an 
operational  program  would  be  made  available  to  the  EA-6B 
squadrons  prior  to  1  October  1978.   The  driving  force  behind 
this  was  to  get  something  into  the  fleet  and  get  their  feed- 
back for  future  development.   Because  of  the  short  time  avail- 
able, the  interactive  graphics  display  capabilities  would  have 
to  be  added  at  a  later  date. 
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IV.   SYSTEM  DESCRIPTION 

A.   INTRODUCTION 

The  Operational  EA-6B  Mission  Planning  Programs  use  the 
WANG  2200T  computer  system  currently  installed  on  board  the 
U.S.  aircraft  carriers.   As  a  minimum,  the  system  must  have 
a  CRT,  16k  of  CPU  memory,  line  printer,  and  a  dual  floppy  disk 
drive  unit.   A  triple  disk  drive  unit  is  preferable. 

Currently,  in  this  developmental  package  there  are  eight 
programs  available  to  the  mission  planner.   Each  program  is 
a  separate  entity  unto  itself.   They  are  all  tied  together 
through  a  ninth  program  called  the  START  module. 

The  START  module  limits  the  number  of  commands  required 
to  operate  all  the  program  to  one.   It  provides  for  easy 
transition  from  one  program  to  another.   In  addition  it  pro- 
vides for  adding  future  programs  that  may  be  developed  with- 
out changing  the  software  of  the  existing  programs. 

The  seven  operational  programs  available  at  this  time  are 
entitled:   LAND,  MOBILE,  PLATFORM,  MATCH,  LIST,  EXCAB  EA6B 
MANAGEI-IENT ,  ICAP  EA6B  LIST  MANAGEMENT,  HULTEC  and  PRINT. 
Each  program  will  be  discussed  in  further  detail. 

The  heart  of  the  programs  is  the  WANG  KFAM-3  (Key  File 
Access  Method)  data  management  system.   /~5  7  KFAM  maintains 
an  index  of  each  individual  record  in  the  data  base  and  its 
location  in  memory.   This  is  accomplished  by  associating  a 
unique  key  to  each  data  record. 
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The  data  base  used  in  the  mission  planning  programs  is 
divided  into  three  separate  units.   They  are:   the  land  elec- 
tronic order  of  battle,  mobile  platfomn  electronic  order  of 
battle,  and  the  emitter  parameter  listing  (EPL) . 

The  mobile  platform  EOB  data  file  has  one  associated  key 
file  while  the  EPL  has  three.   All  key  files  (except  for  one 
of  the  EPL's),  are  located  on  the  same  floppy  with  its  asso- 
ciated data  file.   The  land  EOB  data  file  does  not  have  a  key 
file. 

The  keys  make  it  possible  to  access  the  data  files  and 
display  to  the  operator  the  desired  information  in  a  timely 
manner.   An  EPL  key  file  may  contain  an  emitter's  NATO  desig- 
nator, or  its  NATO  nickname;   while  a  mobile  platform's  key 
file  may  consist  of  the  platform's  name. 

As  stated  above,  the  land  EOB  data  base  does  not  have  an 
associated  key  file.   KFAM  is  not  used  in  conjunction  with 
this  data  base.   This  will  be  explained  in  more  detail  in 
the  next  section. 

The  operator/computer  integrity  that  is  so  important  in 
any  automated  system  is  maintained  throughout  the  operation 
of  each  program.   The  operator  is  required  to  supply  pertinent 
information  at  various  points  during  the  execution  of  each 
program. 

B.   DATA  FILES 

The  data  base  support  for  these  programs  is  provided  by 
NEEO,  Damneck,  Virginia.   /  1_/   They  receive  the  periodic 
intelligence  updates  produced  by  the  various  national 
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intelligence  agencies  (NSA,  DIA,  etc.).   They  update  their 
own  data  base  which  is  a  compilation  of  all  the  sources'  data 
bases.   Then  an  updated  data  base  is  supplied  to  the  EA-6B 
squadrons  utilizing  the  mission  planning  programs.   Each  data 
base  is  tailored  for  the  squadron's  operating  area.   Upon 
receipt  of  new  data  disks,  the  squadrons  return  the  old  disks 
to  NEEO  for  reuse. 

The  data  base  consists  of  a  land  EOB,  mobile  EOB,  and  EPL, 
The  EPL  contains  both  commercial  and  military  emitters  within 
the  frequency  limits  of  the  EA-6B.   This  restriction  was 
necessary  because  of  the  limited  storage  on  the  floppy  disk. 

NEEO  will  tailor  the  data  base  to  meet  a  squadron's  opera- 
tional requirements.   The  squadron  must  inform  NEEO  of  any 
needed  changes  prior  to  the  first  of  each  month.   The  tailor- 
ing may  include  such  items  as  adding  or  deleting  certain  plat- 
forms or  emitters.   However,  the  tailoring  may  be  restricted 
by  the  available  disk  space  remaining  on  a  floppy.   For  ex- 
ample, the  maximum  number  of  emitters  and  the  associated 
signals  are  currently  limited  to  two  thousand  eight  hundred. 
This  number  may  increase  in  the  future  to  four  thousand. 

Each  emitter  contained  in  the  EPL  requires  at  least  two 
sixty  four  byte  records  on  the  disk.  The  first  record  con- 
tains the  following  information  in  the  format  shown. 

Contents 

Elint  Notation 

Mode  Counter  (MC) 

NATO  Nickname 

Emitter  Function  Code  (FC) 

Four  Digit  NTDS  Number 

Comments 
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Col 

.umn 

Nos 

1-5 

) 

8 

10- 

■21 

23- 

•24 

27- 

•30 

38- 

•61 

The  second  and  subsequent  records  contain  the  signal  para- 
meter information  in  the  following  format. 

Column  Nos  Contents 

1-5  Elint  Notation 

6  End  Mode  (-  indicates  last  mode) 

7-8  Mode  Counter  (MC) 

10-14  RF  Low 

16-20  RF  High 

22-26  PRF  Low 

28-32  PRF  High 

34-37  Pulse  Width  Low 

39-42  Pulse  Width  High 

4  4  Modulation  Type 
47-51  Scan  Type 

53-56  Scan  Period  Lower  Limit 

5  8-61  Scan  Period  Upper  Limit 

Standard  DIA  codes  are  used  for  the  emitter's  function 
code,  modulation  type  and  scan  type. 

The  mode  counter  is  used  to  distinguish  each  signal.   The 
record  containing  the  emitter's  NATO  nickname  always  has  an 
MC  of  zero.   MC  increases  by  one  for  each  subsequent  signal 
or  mode.  The  last  mode  is  distinguished  by  a  negative  sign 
in  column  six. 

The  modes  listed  for  each  emitter  may  differ  by  only  one 
parameter.   This  increases  the  size  of  the  EPL  but  it  pro- 
vides the  mission  planner  with  each  known  signal  rather  than 
a  range  of  parameters  for  an  emitter. 

The  comments  section  contain  information  pertinent  to  that 
emitter.   This  may  include  associated  emitters,  platforms,  or 
weapons.   Recommended  jamming  modulations  will  be  added  at  a 
later  date.   This  must  be  done  at  NEEO .   Otherwise  the  squa- 
dron would  need  to  reenter  the  information  each  time  a  new 
EPL  is  received. 
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Column 

Nos 

1 

2-16 

17- 

-18 

21- 

-60 

61- 

-62 

The  Land  EOB  data  file  contains  a  listing  of  the  known 
radar  sites  within  the  geographical  boundaries  of  that  file. 
Each  site  requires  one  sixty  four  byte  record  of  the  format 
shown  below.   If  a  site  contains  more  than  eight  emitters,  a 
second  sixty  four  byte  record  will  be  used. 

Contents 

Category  (L  for  Land) 

Site  latitude  &  longitude 

Country  Code 

Elint  notations  of  site's  emitters 

Site  Function  Code 

The  Mobile  EOB  data  file  contains  a  listing  of  the  known 
emitters  on  board  each  mobile  platform  contained  in  the  li- 
brary.  The  mobile  file  format  is  the  same  as  that  shown  for 
the  Land  EOB  except  for  two  changes .   The  category  code  for  a 
mobile  platform  is  M,  A,  S,  or  B.   The  platform's  class  name 
is  contained  in  columns  two  through  sixteen. 

C.   PROGRAMS 

1.   As  discussed  earlier,  the  START  module  limits  the 
number  of  commands  the  operator  is  required  to  know  for 
operating  with  these  programs  to  one.   Through  this  module, 
the  operator  gains  access  to  each  of  the  seven  remaining 
programs.   Any  programs  developed  and  added  at  a  later  date 
may  be  accessed  through  this  module. 

After  the  START  module  is  loaded  and  running,  a  menu  of 
the  available  programs  is  presented  on  the  screen.   The 
operator  selects  the  program  he  wants  and  enters  its  nuit±>er 
into  the  computer.   That  program  is  loaded  into  memory.   Each 
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program  will  display  its  function  on  the  CRT  after  it  is  loaded. 
This  is  to  ensure  the  operator  has  selected  the  correct  program. 

When  a  program  is  finished,  the  operator  will  be  presented 
with  three  options.   One  of  the  choices  is  to  return  to  the 
START  module  to  select  another  program.   This  feature  allows 
the  operator  to  continue  through  as  many  programs  as  necessary 
without  his  reloading  the  START  module. 

2.  The  LAND  program  allows  the  operator  to  input  the 
latitude  and  longitude  of  two  geographical  points  and  obtain 
the  EOB  for  the  enclosed  rectangular  area. 

A  typical  output  would  appear  as  follows : 

SITE  #1  of  6 

LAT  345119N 

LONG  1234700V7 

FC  MC 

CC  US 

ELINT  MC  FC  EMITTER  NAME       COMMENTS 

A123A  0   TT  UNCLE  AL'S         LOCATED  NEXT  TO  JOE'S 

A2  45Z  0   EW  LONG  GIRL 

The  operator  decides  if  the  output  is  to  be  listed 
on  the  CRT  or  on  the  line  printer.   He  also  decides  if  the 
signal  parameters  associated  with  each  emitter  are  to  be 
included  in  the  listing. 

3.  The  MOBILE  PLATFORM  program  provides  a  listing  of  a 
selected  platform's  EOB.   The  platform  may  be  an  aircraft, 
surface  ship,  submarine,  or  missile.   Both  commercial  and 
combatant  platforms  are  included  in  the  data  base.   The 
operator  inputs  the  platform's  name  and  country  code.   The 
resultant  listing  may  appear  as  shown  below.   The  emitter 
parameter  may  be  included  in  the  listing.   The  output  may  be 
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printed  on  the  CRT  or  line  printer. 


Name 

OHIO 

CC 

US 

FC 

CV 

ELINT 

MC 

FC 

EMITTER'S  NAME 

COMMENTS 

A123Z 

0 

EW 

PLANT 

B246D 

0 

SS 

SPS-10 

4.   The  LIST  program  provides  the  mission  planner  with  a 
listing  of  an  emitter's  signals.   Either  the  emitter's  elint 
notation  or  its  NATO  nickname  is  entered  into  the  computer. 
A  typical  listing  would  appear  as  follows: 


ELINT  MC   FC   EMITTER'S  NAME   COMMENT 

A123Z  0    EW   PLANT 

ELINT  MC  RFLO  RFHI  PRFLO  PRFHI  PWLO  PWHI  MOD  SLO  SHI  STYPE 

A123Z  1    200   300   200    300    2     3     A    2    3    F 

A123Z  -2   400   450   200    300    2     3     A    2    3    F 


The  listing  is  first  presented  on  the  CRT  then  on  paper 
if  a  hard  copy  is  desired. 

When  a  match  cannot  be  made,  the  operator  is  so  informed 
He  is  asked  to  check  his  input.  If  it  is  correct,  then  that 
emitter  is  not  located  in  the  data  base. 

5.   The  EA-6B  squadron's  Electronic  Warfare  Officer  is 
responsible  for  the  management  of  the  alarm  and  CCI  assign- 
ment lists.   During  an  exercise,  these  lists  may  change  any- 
where from  one  to  six  times.   Making  the  changes,  typing  a 
master,  and  reproducing  the  required  number  of  copies  can  be 
a  formidable  task.   The  EA-6B  LIST  MANAGEMENT  Programs  were 
designed  to  help  alleviate  the  problems  stated  above.   The 
EWO  selects  the  List  Management  program  that  is  applicable 
to  his  type  EA-6B. 
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Three  complete  sets  of  lists  are  stored  on  the  PROGRAMS 
floppy  disk  at  any  one  time.   The  operator  may  recall  any  set, 
list  it  on  the  CRT  or  on  paper,  make  any  changes  he  desires, 
list  it  again,  and  save  the  changed  lists  on  the  disk  in 
place  of  the  old  set. 

Those  parameters  allowed  in  the  EA-6B's  on  board  computer 
are  acceptable  entries.   Most  erroneous  entry  attempts  will 
be  rejected. 

6.  The  MATCH  program  is  a  post  mission  signal  identifi- 
cation aid.   The  operator  inputs  the  parameters  of  an  uniden- 
tified signal.   The  computer  scans  the  EPL  data  base  and  lists 
all  signals  that  match  the  inputed  parameters. 

The  operator  may  enter  a  signal's  frequency,  prf,  and 
pulse  width  or  its  frequency  plus  one  of  the  remaining  two 
parameters.   The  more  parameters  inputed,  the  smaller  the 
output  listing.   The  final  identification  is  left  to  the  opera- 
tor.  He  may  use  scan  type,  scan  rate,  and/or  modulation  type 
for  the  final  identification. 

The  listing  may  be  printed  on  paper  for  later  use. 

7 .  The  HULTEC  program  provides  the  EWO  with  a  convenient 
means  of  maintaining  an  up  to  date  HULTEC  file.   The  operator 
inputs  an  emitter's  frequency,  PRF,  PRI  range,  scan  period, 
pulse  width,  name,  NTDS  key  number,  and  the  associated  plat- 
form name.   The  inputs  may  be  stored  on  the  floppy  disk  for 
use  at  a  later  date.   Before  being  saved,  the  operator  inputs 
the  current  date . 

Each  time  the  program  is  run,  the  HULTEC  file  is  loaded 
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into  the  computer.   The  operator  may  then  view  the  existing 
file,  change  any  data  needing  changing,  save  the  updated  data 
file,  and  obtain  hard  copies  of  the  data  file. 

The  operator  may  input  up  to  fifty  different  lines  of 
data.   Prior  to  it  being  saved,  it  is  arranged  in  ascending 
frequency  order. 

A  listing  by  platform  name  or  emitter  name  is  possible. 
The  operator  must  input  the  name  and  all  data  lines  containing 
that  name  will  be  listed  on  the  CRT  then  on  paper  if  desired. 

8.   The  PRINT  program  will  provide  a  hardcopy  printout  of 
the  EPL  and  EOB  data  bases.   The  elint  notation  and  NATO 
nickname  of  each  emitter  in  the  EPL  is  printed.   For  the  Mobile 
EOB,  the  platforms'  name  and  country  code  is  listed.   While 
for  the  Land  EOB,  each  site's  latitude,  longitude,  and  country 
code  is  listed.   This  program  eliminates  the  necessity  of 
NEEO  mailing  data  base  listings  with  each  update. 

D.   DATA  MANAGEI^IENT 

The  KFAM-3  data  management  system  is  the  heart  of  most  of 
the  mission  planning  programs.   The  KFAM  subroutines  and 
associated  key  files  make  it  possible  to  quickly  locate  a 
particular  data  record  in  the  file.   After  the  record  is  lo- 
cated, the  main  program  retrieves  the  data  and  processes  it 
before  presenting  it  to  the  operator. 

The  key  files  contain  a  portion  of  the  data  record  (the 
key)  plus  the  record's  location  in  the  data  file.  The  keys 
used  in  the  mission  planning  programs  are: 
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DATA 

FILE 

Mobile 

EOB 

EPL 

EPL 

EPL 

KEY 

Platform's  name  and  CC 

Elint  notation 

Emitter  name 

Elint  notation,  mode  counter, 

frequency  low,  and  frequency 

high. 

The  key  files  are  created  through  two  special  WANG  sup- 
port utilities  described  in  section  six.   The  key  file  crea- 
tion is  included. in  the  support  provided  by  NEEO  Damneck . 

The  Land  program  does  not  use  KFAM  to  locate  the  sites, 
since  the  mission  planner  is  interested  in  an  area  rather  than 
one  particular  site.   The  binary  search  technique  /  6_/  is  used 
for  locating  the  correct  area  of  interest  in  the  Land  EOB 
data  file.   Once  located,  the  data  is  sorted  by  comparing  the 
data  latitudes  and  longitudes  to  those  entered  by  the  operator. 
For  the  binary  search  technique  to  work,  the  latitudes  and 
longitudes  must  be  in  ascending  order. 

Once  all  sites  are  located,  KFAM  is  used  to  process  the 
data  for  listing  the  emitters  located  at  each  site.   In  this 
case  the  EPL  and  one  of  its  key  files  are  used. 
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V.       CONTRIBUTIONS    AND    FUTURE    CONSIDERATIONS 

A.  OPERATIONAL    USE 

The   programs   were    deployed  with   TACELRON    132    aboard   USS 
CONSTELLATION    (CV-6  4)    in    September    19  78;    with   TACELRON    138 
aboard   USS    DWIGHT    D.    EISENHOWER    (CVN-60)     in   January    19  79; 
and  with   TACELRON    137    aboard   USS    RANGER    (CV-61)    in  February 
1979. 

They  have   also  been  made    available    to   Commander,    Medium 
Attack-Tactical   Electronic  Warfare   Wing,    U.S.    Pacific   Fleet, 
for   use   by   the   other  EA-6B    squadrons    under   their   cognizance. 

NEEO  has   been   tasked   and   funded    for   one   year   to   supply 
the   required  data  bases   monthly   to   each   deployed  EA-6B 
squadron. 

To   receive    the   initial    data  base,    the    squadron's   EWO 
contacts   NEEO   approximately    four   to   six  weeks    prior   to   its 
scheduled  deployment   date.    He    informs   NEEO   of    their   departure 
date,    operating   area    (Med/WestPac) ,    and   any   special    require- 
ments   the    squadron  may   have.    If   the   squadron   is    in  Norfolk, 
the   EWO   should  visit   the   NEEO   Damneck   office.    U.S.    data  bases 
are    available    for   those    squadrons    on   build   ups .    The    same 
procedures    are    followed   for   requesting    the   U.S.    data  bases. 
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B.   FUTURE  CONSIDERATIONS 

Because  of  time  constraints,  many  features  needed  to  make 
this  a  complete  mission  planning  package  are  not  included. 
Without  great  modifications,  all  items  discussed  in  this  sec- 
tion could  be  incorporated,  thus  expanding  the  features  and 
versatility  of  this  system. 

If  this  project  is  to  continue  to  be  used  by  the  opera- 
tional squadrons,  a  source  for  funding  NEEO  is  paramount.   A 
projected  cost  estimate  of  twenty  to  thirty  thousand  dollars 
a  year  is  required.   This  estimate  is  based  on  an  average  of 
four  deployed  squadrons  receiving  a  monthly  update.   This 
cost  would  decrease  if  it's  found  through  experience  the 
monthly  update  is  not  required. 

The  programs  in  this  project  were  constructed  to  operate 
independently  of  each  other  except  for  the  START  module.   By 
using  the  START  module  and  independent  operation,  future  pro- 
grams may  be  added  without  difficulty.   Suggestions  for  new 
programs  and  improvements  will  be  generated  as  more  people 
use  the  existing  programs .   A  central  point  of  contact  to 
receive  these  inputs  is  needed.   COMMATVAQWINGPAC  would  be 
the  logical  choice.   Continued  software  development  may  be 
done  by  thesis  students  at  the  Naval  Postgraduate  School  and/ 
or  either  Naval  Electronic  Engineering  Office,  Damneck ,  Vir- 
ginia, or  the  Procal  Support  Office  at  Naval  Ocean  System 
Center,  San  Diego,  California.   Funding  will  be  the  deter- 
mining factor,  but  COMMATVAQWINGPAC  should  pursue  this  matter, 

Some  suggested  software  improvements  and/or  additions  are; 
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1.  Incorporate  WANG ' s  newest  data  management  system  en- 
titled IDEAS  (Inquiry,  Data  Entry  and  Access  System) .   IDEAS 
uses  a  technique  called  HIKAM  (Hoshed  Index  Keyed  Access  Method) 
Key  files  are  not  required,  thus  more  disk  space  would  be  avail- 
able for  data  storage.   IDEAS  is  compatible  with  the  WANGs  on- 
board the  carriers , 

2.  Incorporate  an  XY  plotting  routine  in  the  LAND  program. 
This  will  allow  computer  plotting  of  the  EOB  on  the  proper  ONC 
chart,  thus  automating  one  more  manual  function  the  mission 
planner  is  required  to  perform. 

3.  Add  a  program  that  will  list  all  platforms  or  land 
sites  that  have  an  operator  specified  emitter. 

4.  Add  the  capabilities  as  outlined  by  Odell  and  Beaudet. 
That  is,  an  interactive  program  utilizing  a  graphics  terminal 
for  complete  EOB  and  strike  path  plotting.   An  optimization 
routine  is  considered  essential  with  this  interactive  capa- 
bilities package. 

The  following  hardware  recommendations  are  made: 

1.  If  a  plotting  routine  is  incorporated,  an  X-Y  plotter 
will  need  to  be  installed  on  each  carrier.   These  are  avail- 
able from  various  sources  and  can  be  incorporated  without 
any  difficulties. 

2.  The  dual  disk  drive  systems  should  be  updated  to  tri- 
ple drives.   The  approximate  cost  for  each  additional  drive 
is  fifteen  hundred  dollars.   This  third  drive  allows  for  more 
system  flexibility  for  not  only  the  mission  planning  programs 
but  for  general  shipboard  use  as  well. 
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3.   An  interactive  graphics  display  will  be  required  when 
the  programs  are  expanded  to  their  fullest  capabilities. 
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APPENDIX  A 
USER'S  GUIDE  TO  THE  PROGRAM 

A.   INTRODUCTION 

This  section  is  intended  to  be  used  by  the  operators.   How 
to  operate  each  program  is  discussed.   For  those  unfamiliar 
with  the  WANG  2200T,  a  brief  discription  on  its  operations 
has  been  included.   More  detailed  information  may  be  found  in 
WANG'S  Programming  in  Basic.   /  7_7 

Some  shipboard  installations  have  dual  and  some  triple 
disk  drive  units.   Since  the  later  is  the  predominate  confi- 
guration, it  will  be  used  as  the  standard  in  this  guide. 

For  the  triple  drive  system,  the  PROGRAMS  disk  is  to  be 
installed  in  drive  number  one,  the  EOB  disk  in  drive  two,  and 
the  EPL  disk  in  drive  three.   For  the  MATCH  program,  the  EPL 
Key  File  disk  is  placed  in  drive  two  and  the  EPL  disk  in 
drive  three. 

For  a  dual  drive  system,  the  PROGRAMS  disk  is  placed  in 
drive  one  and  the  EPL  disk  in  drive  two.   After  the  desired 
program  is  loaded,  the  EOB  disk  replaces  the  PROGRAMS  disk 
in  drive  one.   For  the  MATCH  program,  the  EPL  KEY  File  disk 
is  placed  in  drive  one  and  the  EPL  disk  in  drive  two. 

The  programs  are  designed  so  that  the  operator  may  either 
1)  return  to  the  beginning  of  the  program  currently  in  the 
computer,  or  2)  return  to  the  START  module  to  load  in  a 
different  program,  or  3)  terminate  all  operations  after  the 
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selected   program  is  finished  executing.   This  provides  for 
easy  transfer  from  one  program  to  another. 

Prior  to  reloading  the  START  module  in  a  dual  drive  system; 
the  PROGRAMS  disk  must  be  reinserted  if  it  was  removed.   If 
this  is  not  done,  an  error  will  result.   The  operator  must 
then  manually  reload  the  START  module. 

Each  program  is  designed  to  prompt  the  operator  for  infor- 
mation as  it  is  needed.   If  the  response  is  incorrect  or  in- 
appropriate it  will  be  rejected.   The  operator  will  be  asked 
once  again  for  the  information. 

B.   BASIC  OPERATOR  INSTRUCTIONS 

If  the  system  has  been  operating,  it  will  be  necessary  to 

clear  memory  prior  to  entering  another  program.   This  is 

accomplished  by  first  depressing  the  RESET  button.   This 

stops  the  execution  of  any  program  that  may  be  in  memory. 

Then  either  type  in  the  word  CLEAR  or  depress  the  key  labeled 

"CLEAR".   The  CRT  display  will  appear  as: 

READY 
:CLEAR_. 

The  (EXEC)  key  is  now  depressed.   Any  programs  that  may 
have  been  in  memory  are  now  cleared.   It  is  good  practice  to 
clear  memory  prior  to  loading  any  program  into  the  computer. 

The  operator  enters  information  into  the  computer  via  the 
keyboard.   Each  letter  or  number  appears  on  the  screen  as  the 
key  is  depressed.   If  an  error  is  made,  depress  the  BACK  SPACE 
key  to  the  erroneous  value  and  reenter  the  correct  values. 
Once  the  desired  entry  is  displayed  on  the  CRT,  depress  (EXEC) 
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to  enter  the  information  into  the  computer . 

Whenever  the  computer  is  processing,  the  white  light  in 
the  upper  right  corner  of  the  keyboard  will  be  illuminated. 
When  the  computer  is  waiting  for  an  input  from  the  operator, 
:_  will  appear  on  the  CRT  screen. 

C.   START  PROGRAM 

The  START  program  provides  an  easy  access  to  the  other 
programs  in  the  EA-6B  mission  planning  program  library. 

Operation: 

1.  Clear  the  computer's  memory  as  discussed  in  the 
preceeding  section. 

2.  Install  the  PROGRAMS  disk  in  drive  number  one. 

3.  Key  in  LOAD  DCF  "START"  exactly  as  it  appears 
here.   The  CRT  will  appear  as 

:LOAD  DCF  " START "_ 

4.  Depress  (EXEC)  to  enter  the  load  instruction. 

5.  After  the  :_  reappears  on  the  CRT,  key  in  RUN. 

6.  Depress  (EXEC) . 

7.  The  following  will  appear  on  the  CRT 
DISPLAY  INSTRUCTIONS 

1.  ARE  YOU  WORKING  ON  A  2  OR  3  1.   INPUT  A  2  IF  WORKING 
DRIVE  SYSTEM  ON  A  DUAL  DRIVE  SYSTEM. 

IF  IT  IS  A  TRIPLE  DRIVE 
SYSTEM  INPUT  A  3. 

2.  WHICH  PGM  WOULD  YOU  LIKE  TO  DO  2.   SELECT  THE  DESIRED  PGM 

l.LIST  EMITTERS  ON  SELECTED  SHIPS  OR  AND  INPUT  ITS  NUMBER. 

AIRCRAFT 
2. LIST  LAND  BASED  EMITTERS 
3. LI ST  THE  PARAMETERS  OF  SELECTED 

EMITTERS 
4. MATCH  INTERCEPTED  PARAMETERS  TO 

EMITTERS 
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5. CHANGE  OR  MODIFY    'EXCAP'    EA6B  LISTS 
6. CHANGE  OR  MODIFY    'I CAP'    EA6B  LISTS 
7. PRINT  A  LISTING   OF   THE   DATA  BASE 
8. STOP  WORKING 


Once   loaded,    the   selected   program  will   automatically   start 
running   and  display   a  program  header. 


D.       LAND    PROGRAM 

The  LAND  program  will    list    (and   in   the   future-plot)    the 
EOB    for   any   geographical   area    selected  by    the   operator.      The 
following   list   of   displays   and   instructions   will   be   seen 
during   the   execution   of   this   program. 
DISPLAY 


1.  THIS  PROGRAM  WILL  LIST  THE  RADAR  SITES 
LOCATED  WITHIN  THE  GEOGRAPHICAL  BOUN- 
DARIES SET  BY  THE  OPERATOR 

2.  **ENSURE  THE  LAND  EOB  IS  IN  DRIVE  //_ 
AND  EPL  IN  DRIVE  //_** 

3.  ENTER  LAT  OF  LOWER  LEFT  CORNER- ENTER 
AS  DDMMSS* 


IS  THIS  THE  CORRECT  VALUE 


5.  ENTER  LONG  OF  LOWER  LEFT  CORNER. 
ENTER  AS  DDDMMSS*  IS  THIS  THE 
CORRECT  VALUE 

6.  ENTER  LAT  OF  UPPER  RIGHT  CORNER. 
ENTER  AS  DDMMSS*  IS  THIS  THE 
CORRECT  VALUE 

7.  ENTER  LONG  OF  UPPER  RIGHT  CORNER. 
ENTER  AS  DDDMMSS*  IS  THIS  THE 
CORRECT  VALUE 

8.  YOUR  LOWEST  LAT  EXCEEDS  HIGHEST 
LAT  IN  DATA  BASE 


INSTRUCTIONS 

i.   INFORMATION  ONLY 

2.   DO  AS  INSTRUCTED 


3.  ENTER  LAT-  D  IS 
DEGREES,  M  IS 
MINUTES,  S  IS  SECONDS, 
*  IS  N  OR  S- 

4.  VERIFY  THE  ENTRY.   IF 
IT'S  CORRECT  ENTER  Y. 

5.  SAME  AS  3  EXCEPT  *  IS 
E  OR  W. 


SAME  AS  3 


7.   SAME  AS  5 


8.   HAVE  THE  WRONG  EOB  DATA 
DISK.  INSERT  THE  CORRECT 
DISK. 
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9.   YOUR  UPPER  LAT  IS  LOWER  THAN  LOWEST 
LAT  IN  DATA  BASE 


SAME  AS  8 


10.   TOTAL  NUMBER  OF  SITES= 


10.   TOTAL  NUMBER  OF  SITES 
LOCATED  IN  SEARCH. 
NO  ACTION  NECESSARY. 


11.   ENTERED  VALUES  WERE 


11.  THE  SAME  VALUES  YOU 
ENTERED  ARE  PRINTED 
OUT  TO  YOU. 


12.   DO  YOU  WANT  THE  EMITTER  LISTING  TO 
INCLUDE  THE  PARAI^IETERS  (Y  OR  N) 


12.   ENTER  Y  IF  YOU  WANT  THE 
SIGNAL  PARAMETERS 
INCLUDED  IN  THE  LISTING, 


13.   DO  YOU  WANT  A  HARD  COPY(Y  OR  N) 


14.   ENSURE  PRINTER  IS  ON.   SELECT  CONT/ 
EXEC  TO  CONT 


13.  IF  A  HARD  COPY  IS 
DESIRED  ENTER  Y. 

14.  ENSURE  THE  LINE  PRIN- 
TER IS  ON  AND  SELECTED. 
ENTER  CONT:  THEN  DEPRESS 
EXEC  TO  CONTINUE. 


15.   PROCESSING  SITE  #   OF 


16.   MORE  TO  BE  SEEN.  DEPRESS  EXEC  TO 
CONTINUE 


15.  TO  INFORM  YOU  WHICH 
SITE  IS  BEING  PRO- 
CESSED AT  THE  CURRENT 
TIME.   NO  ACTION  RE- 
QUIRED . 

16.  USED  WHEN  THE  CRT  IS 
SELECTED  AS  THE  OUTPUT 
DEVICE. TEN  LINES  OF  DATA 
IS  PRESENTED  AT  ONE  TIME. 
TO  VIEW  NEXT  SECTION 
DEPRESS  EXEC 


17.   DO  YOU  WANT  TO 

l.PLOT  THE  EMITTERS 

2. RETURN  TO  THE  BEGINNING  TO  DO 

ANOTHER  AREA 
3. STOP  WORKING 
4. RETURN  TO  'START'  PROGRAM 
5. DO  YOU  WANT  A  HARD  COPY 


17.   DISPLAYED  AFTER  PGM 

EXECUTION.  SELECT  ONE 
OF  THE  OPTIONS  AND 
ENTER  THAT  NUMBER. 


18.   INVALID.  REENTER 


18.   DISPLAYED  WHENEVER  AN 
ILLEGAL  VALUE  IS  EN- 
TERED. REENTER  THE 
CORRECT  VALUE. 


19.   NOT  INSTALLED  AT  THIS  TIME.  SELECT  A 
DIFFERENT  NUMBER 


19.   DISPLAYED  WHEN  THE  PLOT 
OPTION  IS  SELECTED  IN 
NUMBER  16  ABOVE. 
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If  the  search  phase  must  be  terminated  prior  to  its  com- 
pletion depress  HALT.   To  view  any  sites  that  may  have  been 
located  enter  RUN  810.   Once  terminated,  the  search  phase  may 
not  be  reentered  except  at  the  beginning. 

Once  the  listing  starts,  the  operator  may  change  the  out- 
put device  and/or  the  inclusion  or  exclusion  of  the  signal 
parameters  by: 

a.  Depress  HALT 

b.  Enter  D=0 

c.  Enter  RUN  810 

The  program  may  be  terminated  at  any  point  by  depressing 
HALT  and  entering  RUN  1230. 

E.   MOBILE  PLATFORM 

The  MOBILE  PLATFORM  program  provides  the  planner  the 
electronic  order  of  battle  associated  with  any  desired  mobile 
platform.   The  platform  may  be  an  aircraft,  surface  ship,  sub- 
marine, or  missile.   The  data  base  contains  both  commercial 
and  combatants.   The  CRT  displays  and  instructions  for  this 
program  are  shown  below. 
DISPLAY  INSTRUCTIONS 

1.  THIS  PGM  WILL  PROVIDE  THE  OPERATOR       1.   INFORMATION  OI^Y 
THE  EOB  FOR  A  GIVEN  SHIP  OR  AIR- 
CRAFT. THE  PLATFORM  IS  IDENTIFIED 

BY  NAME  AND  COUNTRY  CODE 

2.  ENSURE  THE  EOB  DISK  IS  INSTALLED  IN      2.   DO  AS  INSTRUCTED 
DRIVE  #_  AND  THE  EPL  DISK  IN  DRIVE 

#_ 

3.  DEPRESS  EXEC  TO  CONTINUE  3.   DEPRESS  EXEC  AFTER 

STEP  2  IS  COMPLETED 
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4.  DO  YOU  WANT  THE  PARAMETERS  INCLUDED  IN 
THE  LISTING  ? (Y  OR  N) 

5.  PLATFORM  NAME  IS 


6.   PLATFORM'S  COUNTRY  CODE  IS 


7.   UNIT  NOT  IN  DATA  BASE 


8.   MORE  TO  SEE.  DEPRESS  EXEC 


9.   DO  YOU  WANT  A  HARD  COPY  (Y  OR  N) 


10.   DO  YOU  WANT  TO: 

l.DO  OTHER  UNITS 

2. STOP 

3. RETURN  TO  'START'  PROGRAM 


10. 


ENTER  Y  TO  INCLUDE  THE 
PARAMETERS 

ENTER  THE  PLATFORM'S 
NAME.  ENSURE  THE 
SPELLING  IS  CORRECT. 

ENTER  THE  TWO  LETTER 
CODE.  THESE  MAY  BE 
FOUND  IN  A  DIA  PUB. 

DISPLAYED  WHEN  A 
PLATFORM  IS  NOT  IN  THE 
DATA  BASE  OR  SPELLING 
IS  INCORRECT. 

DATA  IS  PRESENTED  IN 
GROUPS  OF  TEN.  WHEN 
READY  TO  VIEW  NEXT 
GROUP  DEPRESS  EXEC. 

ENTER  Y  IF  A  HARD  COPY 
IS  DESIRED.  ENSURE  LINE 
PRINTER  IS  ON  AND 
SELECTED. 

DISPLAYED  VJHEN  THE  PGM 
HAS  FINISHED  EXECUTING. 
SELECT  ONE  OF  THE 
OPTIONS  AND  ENTER  IT'S 
NUMBER. 


F .   iMATCH 

The  MATCH  program  was  designed  for  post  mission  signal 
identification .The  operator  inputs  the  parameters  of  the 
unknown  signal.   The  computer  then  scans  the  EPL  searching 
for  matches  to  the  inputed  values. 

The  parameters  used  for  matching  are  frequency,  prf  and 
pulse  width.   The  operator  may  match  using  all  three  para- 
meters or  frequency  plus  either  of  the  remaining  two.   The 
CRT  displays  and  instructions  are  shown  below. 
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DISPLAY 

1.  THIS  PGM  SEARCHES  THE  EPL  FOR  ALL 
POSSIBLE     MATCHES  TO  PARAMETERS 
SUPPLIED  BY  THE  OPERATOR 

2.  ENSURE  THE  EPL  KEY  FILE  DISK  IS 
INSTALLED  IN  DRIVE  #_ 

3.  IF  PROPER  DISKS  ARE  INSTALLED,  DEPRESS 
EXEC  TO  CONTINUE 

4.  DO  YOU  WANT  TO  MATCH  IN: 

l.FREQ,PRF,&PW 
2.FREQ  &  PRF 
3.FREQ  &  PW 

5.  ENTER  FREQ 


6.   FREQ= 

IS  THIS  THE  CORRECT  VALUE  (Y  OR  N) 
?CR=Y? 


7. 
8. 

9. 

10. 
11. 


ENTER  PRF 


PRF= 


IS  THIS  THE  CORRECT  VALUE(Y  OR  N)?CR=Y? 
ENTER  PW 

PW= 

IS  THIS  THE  CORRECT  VALUE (Y  OR  N)CR=Y? 

TOTAL  MATCHES= 

IF  YOU  NEED  TO  TERMINATE  THE  SEARCH 
MODE  AND  WISH  TO  SEE  THE  MATCHES  MADE, 
ENTER  RUN  830 


12.   NO  MATCH  FOR:   FREQ=    PRF= 


13.   NO  MATCH  FOR:   FREQ=    PRF= 


PW= 


INSTRUCTIONS 

1.  INFORMATION  ONLY 

2.  DO  AS  DIRECTED 

3.  DO  AS  DIRECTED 


4.  SELECT  ONE  OF  THE 
OPTIONS  AND  ENTER 
ITS  NUMBER. 


5.  ENTER  A  FREQUENCY 
WITHIN  THE  EA6B's 
RANGE.  NEED  NOT  ENTER 
FIVE  DIGITS. 

6.  IF  DISPLAYED  VALUE 
IS  CORRECT,  DEPRESS 
EXEC.  IF  INCORRECT, 
ENTER  N. 

7.  ENTER  PRF  UP  TO  9999. 

8.  SAME  AS  6. 


9.   ENTER  PULE  WIDTH  UP 
TO  99.9 

10.   SAME  AS  6 


11.  TOTAL  NUMBER  OF  SIGNALS 
MATCHING  ENTERED  PARA- 
METERS. NO  ACTION  RE- 
QUIRED UNLESS  YOU  WISH 
TO  TERMINATE.  IF  SO: 
ENTER  HALT.  ENTER  RUN 
830 

12.  DISPLAYED  WHEN  OPTION 

1  WAS  SELECTED  WITH  NO 
MATCHES . 

13.  SAME  AS  12  BUT  FOR 
OPTION  2 
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14.   NO  MATCH  FOR:   FREQ= 


PW= 


16.   NO  FURTHER  MATCHES.  DEPRESS  EXEC  TO 
CONTINUE 


17.   DO  YOU  WANT  A  HARD  COPY(Y  OR  N) 


18.   DO  YOU  WANT  TO: 

l.DO  ANOTHER  MATCH 

2. RETURN  TO  'START'  PROGRAM 

3 . STOP 


14.   SAME  AS  12  BUT  FOR 
OPTION  3 


15.   MORE  TO  COME.  DEPRESS  EXEC  TO  CONTINUE    15 


USED  WHEN  LISTING 
MATCHES.  SCREEN  IS 
LIMITED  TO  16  LINES. 
TO  VIEW  NEXT  SECTION 
DEPRESS  EXEC 


16.  DO  AS  INSTRUCTED.  ALL 
MATCHES  HAVE  BEEN 
VIEWED. 

17.  ENTER  Y  IF  A  HARD  COPY 
IS  DESIRED.  ENSURE 
THE  LINE  PRINTER  IS  ON 
AND  SELECTED. 

18.  SELECT  ONE  AND  ENTER 
ITS  NUMBER 


G.   EMITTER  PARAMETER (LIST) 

This  program  will  provide  the  mission  planner  with  a 
listing  of  an  emitter's  signals.   The  data  is  retrieved  by 
entering  either  the  emitter's  elint  notation  or  its  NATO 
nickname.   CRT  displays  and  instructions  are  shown  below. 

When  using  the  NATO  nickname,  not  all  of  the  functions 
(e.g.  MC/MG,TT,etc)  of  a  single  emitter  will  be  retrieved  if 
each  function  has  a  unique  elint  notation.   It  is  recommended 
the  operator  use  elint  notation  for  all  multi-functional 
emitters . 
DISPLAY  INSTRUCTION 

1.  THIS  PGM  WILL  LIST  THE  PARAMETERS  OF  ANY   1.   INFORMATION  ONLY 
EMITTER  SELECTED  BY  THE  OPERATOR.  SELEC- 
TION IS  BY  ELINT  NOTATION  OR  NATO  NICK- 
NAME. 

2.  **ENSURE  THE  EPL  DISK  IS  INSTALLED  IN     2 .   DO  AS  DIRECTED 
DRIVE  #   ** 
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DO  YOU  WISH  TO  SEARCH  VIA  NATO 
NICKNAME  OR  ELINT  NOTATION 

1 . ELINT 

2.  NAME 

EMITTER  ELINT  NOTATION  IS 


5.   MORE  TO  SEE.  DEPRESS  EXEC  TO  CONTINUE 


6.   DO  YOU  WANT  A  HARD  COPY(Y  OR  N) 


ENTER  EITHER  A  1  OR  2. 


DO  YOU  WISH  TO: 

1. SEARCH  FOR  ANOTHER  EMITTER 

2. STOP 

3. RETURN  TO  'START'  PROGRAM 

CHECK  ENTRY.  IF  IT'S  CORRECT, THEN  THE 
EMITTER  IS  NOT  LOCATED  IN  THE  DATA  FILE, 


EMITTER  NAME  IS 


10.   INVALID . REENTER 


10. 


ENTER  THE  FIVE  DIGIT 
ELINT  NOTATION 

MORE  DATA  TO  BE  SEEN, 
DEPRESS  EXECUTE  TO 
CONTINUE 

ENTER  Y  IF  A  HARD  COPY 
IS  DESIRED.   ENSURE  THE 
LINE  PRINTER  IS  ON  AND 
SELECTED. 

DISPLAYED  AFTER  PGM  IS 
FINISHED.  SELECT  AN 
OPTION  AND  ENTER  ITS 
NUMBER. 

DISPLAYED 

IF  AN  EMITTER  CAN  NOT 

BE  LOCATED  IN  THE  DATA 

BASE. 

ENTER  THE   EMITTER'S 
NATO  NICKNAME 

DISPLAYED   IF  AN   ERROR 
IS   MADE  WHEN   ENTERING 
INFORMATION   FOR   3   AND 
7.    REENTER  THE  RE- 
QUESTED  DATA. 


H.       EXCAP    EA-6B    LIST    MANAGEMENT    PROGRAM 

The   EXCAP    (Expanded   Capabilities)    EA-6B   LIST   program  pro- 
vides  the  EXCAP   squadron's   Electronic  Warfare  Officer   the 
capability   of   maintaining   three    separate    sets    of    EXCAP   EA-6B 
acquisition   and  CCI    assignment    lists    in   the   computer.      Any   one 
set  may  be   retrieved,    changed,    listed   on   paper,    and   saved, 
without   affecting   the   other    lists.      Any   number   of   hard   copies 
may  be  made.      The   CRT  displays    and   instructions   are   listed 
below.      Only   the  PROGRAMS   disk   is   required   for   this   program. 
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DISPLAY 

1.  THIS  PGM  WILL  ASSIST  THE  EWO  IN 
MANAGING  THE  EXCAP  SQUADRON'S  ACQ 
AND  CCI  ASSIGNMENT  LISTS. 

2.  WHICH  LIST  SET  DO  YOU  WANT  TO  WORK  WITH 

l.WAS 
2. LAND 
3.ASMD 

3.  DO  YOU  DESIRE  A  LISTING  OF  THE  PRESENT 
LISTS  (Y  OR  N) 

4.  DO  YOU  WANT  A  HARD  COPY  OF  THE  LISTS 
(Y  OR  N) 


5.   HOW  MANY  COPIES 


INSTRUCTIONS 

1.   INFORMATION  ONLY 


2.   SELECT  A  LIST  SET  AND 
ENTER   ITS  NUMBER 


ENTER  Y  TO  VIEW  THE 
SELECT  LIST  SET. 

IF  YES  ENTER  Y.  ENSURE 
THE  LINE  PRINTER  IS  ON 
AND  SELECTED. 

WILL  BE  DISPLAYED  ONLY 
IF  Y  WAS  ENTERED  FOR  4, 
ENTER  THE  NUMBER  OF 
COPIES  NEEDED. 


DO  YOU  WANT  TO 

I.ENTER  ALL  NEW  LISTS 

2. CHANGE  SOME  OF  THE  LISTS 

3. CHANGE  SELECTED  PARAMETERS  IN 

A  SELECTED  LIST 
4. SAVE  WHAT  YOU  HAVE  DONE 
5 . STOP 

SAVE  ANYTHING  ????? 


SELECT  AN  OPTION  AND 
ENTER  ITS  NUMBER 


8.   NUMBER  OF  LISTS  TO  BE  ENTERED. 
(<=40) 


9.   ENTER  FREQ  LO 


10.   ENTER  FREQ  HI 


11.   ENTER  PRFI  LO 


12.   ENTER  PRFI  HI 


10, 


11 


12, 


DISPLAYED  IF  OPTION  5 
WAS  SELECTED  IN  ITEM 
6.  THIS  IS  A  SAFETY 
FEATURE  IN  CASE  YOU  DID 
WANT  TO  SAVE  YOUR  WORK. 

DISPLAYED  IF  OPTION  1 
IS  SELECTED  IN  6  ABOVE. 
ENTER  ANY  NUMBER  UP  TO 
AND  INCLUDING  40. 

ENTER  ANY  VALID  EA-6B 
VALUE 

ENTER  ANY  VALID  EA-6B 
VALUE 

ENTER  ANY  VALID  EA-6B 
VALUE 

ENTER  ANY  VALID  EA-6B 
VALUE 
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13.   ENTER  PRF  2  LO 


14.   ENTER  PRF  2  HI 


13.  ENTER  ANY  VALID  EA-6B 
VALUE 

14.  ENTER  ANY  VALID  EA-6B 
VALUE 


15.   ENTER  LTIFN 


15.   ENTER  ANY  VALID  EA-6B 
VALUE 


16.   ENTER  SPRI 


16.   ENTER  ANY  VALID  EA-6B 
VALUE 


17.   ENTER  TBKSF 


17.   ENTER  ANY  VALID  EA-6B 
VALUE 


18.   ENTER  TTMB 


18.   ENTER  ANY  VALID  EA-6B 
VALUE 


19.   WHICH  LIST  DO  YOU  WISH  TO  CHANGE 
(1T030,41T049) 


19.   DISPLAYED  IF  OPTION  2 

IS  SELECTED  IN  6  ABOVE. 
ENTER  THE  NUMBER  OF  THE 
LIST  YOU  WISH  TO  CHANGE. 


20.   DO  YOU  WISH  TO  CHANGE  ANOTHER  LIST 
(Y  OR  N) 


20.   DISPLAYED  IF  OPTION  2  IS 
SELECTED  IN  6  ABOVE,  AND 
AFTER  THE  LIST  SELECTED 
IN  19  IS  ENTERED.  ENTER 
.  Y  IF  YOU  WANT  TO  CHANGE 
ANOTHER  LIST. 


21.   DO  YOU  WANT  TO 
l.STOP 

2. RETURN  TO  THE  'START'  PROGRAM 
3. RETURN  TO  THE  BEGINNING  OF  THIS 
PROGRAM 


21.   SELECT  ONE  OF  THE  OPTIONS 
AND  ENTER  ITS  VALUE. 


22.   INVALID, REENTER 


22.   AN  ERRONEOUS  VALUE  WAS 
ENTERED.  ENTER  A 
CORRECT  VALUE. 


23, 


TO  CONTINUE  DEPRESS  EXEC 


23.   DISPLAYED  WHEN  THE 

LISTS  ARE  BEING  VIEWED 
ON  THE  CRT.  THE  LISTS 
ARE  PRESENTED  IN  GROUPS 
OF  TEN.  TO  VIEW  NEXT  SET 
DEPRESS  EXEC. 


24.   WHICH  LIST  DO  YOU  WISH  TO  WORK  WITH 


24.   DISPLAYED  IF  OPTION  3 
IN  ITEM  6  WAS  SELECTED 
ENTER  THE  LIST  #  YOU 
WISH  TO  WORK  WITH 
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25.      WHICH  PARAMETER  DO  YOU  WISH  TO   CHANGE 
l.RF  LOW 
2.RF  HIGH 
3. PRE   1   LOW 
4. PRE   1   HIGH 
5. PRE   2   LOW 
6. PRE   2  HIGH 
7.LTIFN 
8 . SPRI 
9 . TBKSE 
lO.TTMB 
11. NO  OTHERS 


25.      SELECT  THE  PARAMETER 

TO   BE  CHANGED  AND   ENTER 
ITS   NUMBER 


I.       ICAP    EA-6B    LIST   MANAGEMENT    PROGRAM 

This    program   is    identical    to   the   EXCAP   EA-6B   LIST   MANAGE- 
MENT program   except    it   is    designed   for   use  with   ICAP    (improved 
capabilities)    lists.      The   details    as    stated   in   section  H 
(EXCAP   LIST  MANAGEMENT)    are   germaine   for   this   program.      The 
displays   and   instructions   that   are   different   than   those    listed 
in   section  H   are   shown  below.      The  WSC   entry  was    left   out   since 
it   changes    from   flight   to   flight. 
DISPLAY 


1.  THIS  PGM  WILL  ASSIST  THE  EWO  IN 
MANAGING  THE  ICAP  SQUADRON'S  LISTS. 

2.  ENTER  FTP 


ENTER  SITE 


ENTER  SYM 


ENTER  PRI 


ENTER  S 


7.   ENTER  FT 


INSTRUCTIONS 

1.   INFORMATION  ONLY 


2.  ENTER  ANY  VALID  ICAP 
VALUE 

3.  ENTER  ANY  VALID  ICAP 
VALUE 

4.  ENTER  ANY  VALID  ICAP 
VALUE 

5.  ENTER  ANY  VALID  ICAP 
VALUE 

6.  ENTER  ANY  VALID  ICAP 
VALUE 

7.  ENTER  ANY  VALID  ICAP 
VALUE 


40 


8.  ENTER  TBK  8.   ENTER  ANY  VALID  ICAP 

VALUE 

9.  WHICH  PARAMETER  DO  YOU  WISH  TO  CHANGE     9.   SELECT  THE  PARAMETER 

l.RF  LOW  YOU  WISH  TO  CHANGE 

2.RF  HIGH  AND  INPUT  ITS  NUMBER 

3.PRF  1  LOW 

4.PRF  1  HIGH 

5. PRE  2  LOW 

6. PRE  2  HIGH 

7. SITE 

8.SYM 

9.PRI 
10. S 
11.  FT 
12. TBK 
13. NO  OTHERS 

There  Is-  only  one  set  of  data  files  available  for  use 

with  the  list  management  programs.   Therefore,  an  EXCAP 

squadron  should  not  attempt  to  use  the  ICAP  LIST  MANAGEMENT 

program.   Likewise,  a  ICAP  squadron  should  not  attempt  to 

use  the  EXCAP  LIST  MANAGEMENT  program. 

J.   HULTEC  PROGRAM 

The  HULTEC  program  provides  the  EWO  a  convenient  means  of 
maintaining  an  up  to  date  HULTEC  data  file.   A  maximum  of 
fifty  lines  of  data  may  be  resident  in  the  data  file  at  any 
one  time.   Each  data  line  consists  of  an  emitter's  name, 
frequency,  associated  platform,  PRE,  PRI  interval,  scan  period, 
pulse  width,  and  NTDS  key  file  number.   Each  line  may  be 
changed  in  its  entirety  or  selectively. 

The  operator  may  list  the  entire  data  file  or  list  those 
data  lines  with  a  particular  platform  or  emitter.  Unlimited 
hard  copies  of  the  listings  may  be  made. 
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Leading  zeros  should  be  used  for  each  numerical  entry. 
The  data  file  is  sorted  in  ascending  frequency  order.   If 
leading  zeros  are  not  used,  the  resultant  file  will  not  be  in 
ascending  order.   Also,  the  values  will  be  left  justified. 
With  leading  zeros,  these  problems  do  not  exist.   The  leading 
zeros  will  not  appear  in  the  printout. 

The  CRT  displays  and  instructions  are  shown  below.   Only 
the  PROGRAMS  disk  is  required  for  this  program. 


DISPLAY 

1.  THIS  PGM  PROVIDES  A  CONVENIENT  MEANS 
OF  MAINTAINING  AN  UP  TO  DATE  HULTEC 
FILE. 

2.  DO  YOU  WISH  TO  LOOK  AT  THE  ENTIRE 
FILE  AT  THIS  TIME  (Y  OR  N) 


INSTRUCTIONS 

1.   INFORMATION  ONLY. 
NO  ACTION  REQUIRED. 


IF  YOU  WISH  TO  SEE  THE 
DATA  FILE  STORED  ON  THE 
DISK  ENTER  Y. 


MORE  TO  SEE.  DEPRESS  EXEC  TO  CONT 


4.  DO  YOU  WISH  TO: 

1. CHANGE  AN  ENTRY 

2. OBTAIN  A  HARD  COPY  OF  THE  CURRENT 

FILES 
3. SAVE  WHAT  YOU  HAVE  DONE 
4. LIST  THE  FILES 

5. SEARCH  FOR  A  PARTICULAR  PLATFORM 
6. SEARCH  FOR  A  PARTICULAR  EMITTER 
7. RETURN  TO  THE  START  PGM 
8. STOP 

5.  ^^miCH  LINE  DO  YOU  WISH  TO  CHANGE 


6.   DO  YOU  WISH  TO  CHANGE 
l.ALL  VALUES 
2. SELECTED  VALUES 


7.   ENTER  RF 


3.  DATA  IS  PRESENTED  IN 
GROUPS  OF  10.  WHEN 
READY  TO  VIEW  NEXT 
GROUP  DEPRESS  EXEC. 

4.  SELECT  AN  OPTION  AND 
ENTER  ITS  NUMBER. 


ENTER  THE  LINE  NUMBER 
(BETWEEN  1  AND  50) 
TO  BE  CHANGED. 

SELECT  AN  OPTION  AND 
ENTER  ITS  NUMBER. 


7.  ENTER  A  FIVE  DIGIT 
VALUE.  USE  LEADING 
ZEROS . 
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8.   ENTER  PRF 


8.   ENTER  A  VALUE  OR  DEPRESS 
EXEC. 


9.   ENTER  PRI  1 


9.   ENTER  A  VALUE  OR  DEPRESS 
EXEC. 


10.   ENTER  PRI  2 


10.   ENTER  A  VALUE  OR  DEPRESS 
EXEC. 


11.   ENTER  PW 


11.   ENTER  A  VALUE  OR  DEPRESS 
EXEC. 


12.   ENTER  SCAN  PERIOD 


12.   ENTER  A  VALUE  OR  DEPRESS 
EXEC. 


13.   ENTER  PLATFORM'S  NAME 


13.   ENTER  A  VALUE  OR  DEPRESS 
EXEC. 


14.   ENTER  EMITTER'S  NAME 


14.   ENTER  A  VALUE  OR  DEPRESS 
EXEC. 


15.   ENTER  NTDS  KEY  NUMBER 


15.   ENTER  A  VALUE  OR  DEPRESS 
EXEC. 


16.   WHICH  VALUE  DO  YOU  WISH  TO  CHANGE? 
SELECT  ONE 
l.RF 
2.  PRF 
3. PRI  1 
4. PRI  2 
5.PW 

6. SCAN  PERIOD 
7. PLATFORM'S  NAME 
8. EMITTER'S  NAME 
9. NTDS  KEY  NUMBER 
10. NO  OTHERS 


16.   SELECT  AN  OPTION  AND  ENTER 
ITS  NUMBER. 


17.   PRINTER  ON  AND  SELECTED? 
DEPRESS  EXEC  TO  CONT. 


17.   DO  AS  INSTRUCTED 


18.   HARD  COPY  DESIRED  (Y  OR  N) 


18.   ENTER  Y  IF  HARD  COPIES 
ARE  DESIRED 


19.   NUMBER  OF  COPIES 


20.   TODAY'S  DATE  IS 


21.   ENTER  PLATFORM'S  NAME 


19.  ENTER  THE  NUMBER  OF 
COPIES  DESIRED 

20.  ENTER  THE  CURRENT  DATE 
AS  MM/DD/YY 

21.  ENTER  THE  PLATFORM'S 
NAME  THAT  YOU  WISH  TO 
HAVE  THE  DATA  ON 
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22.      NO  PLATFORM  WITH  THAT  NAME 


23.      ENTER  EMITTER'S  NAME 


24.      NO  EMITTER  WITH  THAT  NAME 


22.  WRONG  SPELLING,    SPACING, 
OR  PLATFORM   IS   NOT   IN 
DATA  FILE. 

23.  ENTER  THE  EMITTER'S 
NAME   THAT  YOU  WISH   TO 
HAVE   THE  DATA  ON 

24.  WRONG   SPELLING,    SPACING, 
OR   EMITTER   IS  NOT   IN  DATA 
FILE 


K.       PRINT    PROGRAM 

The   PRINT  program  will   provide   to   the   operator   a    listing 
of   the   key   elements   of   each   data  base.      For   the  EPL,    this 
listing    contains    the   elint   notation,    NATO   Nickname,    function 
code,    and   comments   of   each   emitter.      A  mobile   platform's   name 
and   its   country   code  will   be   listed    from  the  Mobile  EOB. 
While   for   the  Land  EOB,    each   site's    latitude,    longitude,    and 
country   code  will   be   listed. 

The   CRT  displays   and   instructions    for   this   program  are 
shown  below.      The   programs   disk   is    installed    in  drive   numier 
one   and   the   appropriate  data   disk   in  drive   two. 


DISPLAY 

1.  WHICH   DATA  FILE  DO  YOU  WISH  TO  WORK 
WITH 

l.EPL 

2. MOBILE  EOB 

3. LAND  EOB 

2.  ENSURE   THE   APPROPRIATE   DATA  DISK   IS 
INSTALLED   IN  DRIVE   TWO,    AND   THE  LINE 
PRINTER   IS   ON  AND   SELECTED.      DEPRESS 
EXEC   TO   CONTINUE. 


INSTRUCTIONS 

1.       ENTER  THE  DESIRED 
NUMBER 


ENSURE   THE   CORRECT 
DATA  DISK   IS    INSTALLED 
AND   THE  LINE  PRINTER 
IS   ON  AND   SELECTED. 
DEPRESS   EXEC. 


If   ERR   80    occurs    after    step   two,    the   data   disk    in   drive 
two   and   that   selected   in   step  one   above   do   not   agree.      In- 
sert the  correct  disk  and   enter   RUN. 
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L.   KEY  FILE  INITIALIZATION 

The  Key  File  is  an  integral  part  of  the  WANG  KFAM-3  data 
management  system  used  in  the  EA-6B  Mission  Planning  Programs 
The  various  key  files  used  in  these  programs  are  established 
by  NEEO  prior  to  the  squadrons  receiving  the  data  file. 

The  Initialize  KFAM  File  and  Key  File  Creation  utility 
programs  from  the  KFAM-3  ISS  Utilities  /  5  /  package  are  used 
to  create  the  four  key  files  used  in  the  mission  planning 
programs.   The  EPL  data  file  has  three  separate  associated 
key  files  and  the  Mobile  EOB  data  file  has  one.   The  Land 
EOB  file  does  not  have  a  key  file. 

To  conform  to  KFAM-3  name  requirements,  the  Land  EOB 
library  is  entitled  E0B2F1  (even  though  it  has  no  key  file) . 
The  Mobile  EOB  library  is  entitled  EOBlFl  while  the  EPL 
library  is  called  EPLlFl. 

The  following  information  is  required  by  the  Initialize 
Key  File  utility.   The  data  disk  is  installed  in  drive  two. 
All  key  files  except  EPL1K3  are  built  on  their  respective 
data  disk.   Because  of  its  size,  the  EPL1K3  file  is  built 
a  separate  disk. 

a)  User  file  name  EPLlFl  EPLlFl  EPLlFl  EOBlFl 

b)  Device  address  for  user     BIO     BlO  BlO  BIO 
file 

c)  Data  file  catalogued  Yes    Yes  Yes  Yes 

d)  Key  file  number  12  3  1 

e)  Device  address  for  BIO     BIO  BIO  BIO 
keyf ile 

f)  Record  type  A      A  A  A 

g)  Logical  record  length       63      63      63      63 
h)  Blocking  factor            4       4       4       4 
i)  Key  length                 5       12      21      17 
j)  Starting  position  of  key    3       12      3       4 
k)  Estimated  number  of      Notel  Note2  Note2  Note2 

records 
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NOTE  1:   use  the  total  number  of  elint  notation's 
in  the  data  base. 

NOTE  2:   Multiply  the  User  File  size  by  four  then 
subtract  eight. 

The  information  required  by  the  Key  File  Creation  utility 
may  be  obtained  from  that  listed  previously  for  the  Initialize 
Key  File  Utility. 

Duplicate  key  errors  will  be  generated  when  constructing 
EPLlKl  and  EPL1K2 .  To  decrease  the  time  required  for  building 
the  key  files,  the  print  instructions  in  line  6960  in  the 
creation  utility  should  be  deleted.  Line  619  4  should  be 
modified  to  select  the  CRT  instead  of  the  line  printer. 

The  data  base  format  has  been  standardized  to  that 
described  in  Section  IV  B  of  this  report.  Any  deviation  from 
this  format  may  render  the  programs  useless. 
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APPENDIX  B 
START 


lORFM  START  PGM  FOR  EA6R  MSN  PLANNING  /  S  OF  2-5-:"^  BY  LT  S.W. 

SMITH,  USN 
20  PRINT  HEX(03):C0M  Dl 

30  INPUT  "ARE  YOU  WORKING  ON  A  2  OR  3  DRIVE  SYSTFM",B 
40  IF  B=2THEN  50:D1=1:GOTO  60 
50  Dl=2 

60  PRINT  HEX(03) 

7  0  PRINT  "WHICH  PGM  WOULD  YOU  LIKE  TO  DO" 
SO  PRINT  "         l.LIST  EiriTTERS  ON  SELICTED  SHIPS  OR  AITCPAF 

rri  II 

90  PRINT  "         2. LIST  LAND  BASED  EMITTEPS" 

100  PRINT  "         3. LIST  THE  PARAMETERS  OF  SELECTED  EMITTEPS" 

110  PRINT  "         4. MATCH  INTERCEPTED  PARAI'ETERS  TO  EMITTERS" 

120  PRINT  "         5. CHANGE  OR  MODIFY  'EXCAP'  EA6B  LISTS" 

130  PRINT  "         6. CHANGE  OR  MODIFY  'ICAP'  EA6B  LISTS" 

140  PRINT  "         7. PRINT  A  LISTING  OF  THE  DATA  BASE" 

150  PRINT  "         8. WORK  WITH  THE  HULTEC  PGM" 

160  PRINT  "         9. STOP  WORKING" 

170  INPUT  A 

180  ON  A  GOTO  200,210,250,220,230,240,260,270,280 

190  PRINT  "INVALID.  REENTER"   :GOTO  70 

200  LOAD  DC  F  "MOBILE" 

210  LOAD  DC  F  "LAND" 

220  LOAD  DC  F  "MATCH" 

230  LOAD  DC  F  "EA6  XLST" 

240  LOAD  DC  F  "EA6  ILST" 

250  LOAD  DC  F  "L  EMIT" 

260  LOAD  DC  F  "PRINT" 

270  LOAD  DC  F  "HULTECl" 

2  80  STOP 
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I 


OF  DISK  UKtVK. 
XIUJ , 


SELECT  PGM 


V  TERMINATE y 


LA  LAND 

MO  MOBILE 

MA  MATCH 

LI  LIST  EMITTER  PARAMETERS 

EL  EXCAP  LIST  MANAGEMENT 

IL  ICAP  LIST  MANAGEMENT 

HU  HULTEC 

PR  PRINT  DATA  LISTING 
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START 

A     PROGRAM  SELECTION  VARIABLE 

B     NUMBER  OF  DISK  DRIVES  INPUT  VARIABLE 

Dl    COM  VARIABLE  FOR  NUMBER  OF  DISK  DRIVES 
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LAND 

10    REM    LAND    PROGRAM    DEVELOPED    BY    LT    S . W . SMITH , USN , 2 / 1 2 / 7 9 
20    PRINT    HEX(03):C0M    Dl 

30    PRINT    TAB(4);"THIS    PGM    WILL    LIST    THE    RADAR    SITES    LOCATED 
WITHIN    THE":PRINT    TAB ( 9 ); "GEOGRAPHICAL    BOUNDARIES    SET    BY    THE 

OPERATOR" 
40    IF    D1=1THEN    50:PRINT    HEX (OAOA) ; "**ENSURE    THE    LAND    EOE    IS 
IN    DRIVE    #1    AND    EPL    IN    DIRVE    //2":G0T0    410 
50    PRINT    HEX(OAOA) :"**ENSURE    THE    LAND    EOB    IS    IN    DRIVE    #2    AND 

EPL    IN    DRIVE    in**^':GOTO    410 
60    COM    A2$(100)62,A3$ (15)62, A$(4)62 
7  0    COM    0$(2)64,Q5$64,Q7$1 
80    COM    U1$(1)7,U2$(1)7,B1$(1)8,B2$(1)8 
90RETURN 

lOOCOM   V7$8,T0$7,V9,V0$ (3)2,T1(3) : COM   V0$2,V1$8,V2$2,V3$2,V4 
$2,V6$l:COM    O2$2,O3$2,V5$l,V8$l,T5$30,T7$3  0:COM    T0,T9,T2$2,T 
4$3,T2,V8,T8,Tl,T8$l,T2$(8)2,T(8):COM    T4,T5,V6,V7,V1 
llOCOM    0,Q$1,T9$2,T0$  (4)60 

12  0COM    T6$1,T3$3,T1$(1)2,T3$(1)33,V9$2,T1$30 
130ADDC(V9$,V0$)  :DATA    LOAD    DA    Tr  Tl ,  (V9$  ,  V9$  )  T9$  ,  T0$  r )  :  RETUR?T 

14002=99 

150V9$=T2$  :FOR  T3  =  T0TO  ISTEP  -IrGOSUB  1  30  :  T2  $  (^73 )  =T9  $  :  ^'A  T  SE 

ARCHTOS  (M1,V7'',1STR(T1S,1,T4)T0  Tl$()STr^  T5  :  T  =  VAL  (  ?TR  ( Tl$  ( 

1),2))-T5:IF  TjOTHEN  160:T=V1 

160yAT  COPY  T0$  ()  [T,T5]T0  T3$  ( )  :  V9  $  =  STI^  (T  3$  (1 )  ,  T4  +  1 ,  3  )  :  I^^  02 

r99THEN  190 

i70T(T3)=T:NEXT  T 3 : T7 $  =  T1 $ : V= 2 : IF  S TR (Tl$ , 1 , T4 )  =  STr  ^T3$  (1 ) , 1 

,T4)THEN  180:V=3 

180RETURN 

190MAT  COPY  TOS () [V1,1]T0  T1$():IF  Tl $ ( 1 ) =HEX rPF ) THEN  200:Q2 

=Q2+1:C0T0  170 

200q2=0:GOTO  170 

210T4  =  VAL(STR(V1S,5)  )  ;  T5  =  T4  +  3  :  V6=VAL  (SIR  ( VI  $  ,6)  )  T."  7  =  T5*V6  :  VI 

=V7-T5+1:RETURN 

2200$="  ":IF  T6[1THEN  400: IF  T6=T9THEN  90 

230GOTO  400 

240DATA  SAVE  DA  T  $ //Tl ,  ( V0$  ,  V9$  )  02$  ,  0  3$  ,  V5$  ,  V8$  ,  V0$  ,  Vl$  ,  V2  $  ,  V 

3$,V6$,T2$,T0,Tl,T2,V8,T4$,T5$,f7$,f2$(),T(),T8$  :  RETURN 

250DATA  LOAD  DA  T #T1 (T9 )  ,  (VO $  (T9 )  , V9 $ ) 02$ , Q 3$ , V5 $ , V8$ , VO $ , VI 

$,V2$,V3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2$(),T() ,T8$:RETU 

RN 

260T6  =  VAL(T4$)*256+VAL  (STR(T4$  ,2)  )  rDBACKSPACE  =-'T2,BEC  :IF  T6 

=  OTHEN  270:DSKIP  f/T2,T6S 

2  7  0O=VAL(STR(T4$, 3)):Q$,T8$="    ": RETURN 

280bEFFN'232  (T6,T7  ,T1$)  :GOSUB    220:IF    0$]"    "THF^'    90:GOSUB    1^0 

:T4S  =  STR(T3$(1)  ,T4+1,3)  :TS$  =  "2":IF    V[]2THEN    3-.0:IF    T4$]HEX<'F 

F)THEN    380:GOSUB    260:RETURN 

290DEFFN'230(T6,T7,O2,O3,V7$) :IF  T6[1THEN  39^:IF  T6]3TFF^^  3° 

0:TF  V9]0THEN  3 30 : INIT  (FF ) V0$  (  )  : INIT (OP ) T0$ 

300IF  STR(T0$ ,T7+1,1) ]HFX(0O)THEN  39n:IF  ST? (T0$ , 02+1 , 1 ) ] HEX 

(OO)THEN  390:IF  02=T7THEN  390 

310DATA  LOAD  DC  OPEN  T --l^  02  ,  V7  $  :  STR  (V7S  ,  5  , 1 )  =  "K  "  :  ^O^^VFF  T  03T0 

STR(V7$  ,6,1)  ,  (-^  :  LIMITS  T /'T7  ,  V7$  ,  T  ,  V  ,  T3  :  V=  INT  (T/ 25  6  )  :  BT^  ^^'0$ 

)=V:BIN(STR(VO$, 2) )=T-2  5  6*V:Tq  =  T6:V0$ (T9)=V0$  ti'l (T9)=T7:GOSU 

P  250:G0SU3  210 : V0$=V0$ (T9 ) : T1=T7 : T2=02 

3  20STR(TO$,T7+1,1)=HEX(01)  :STR(TO$  ,  02+1 , 1 )  =HFX  ^0  1  )  :^^9=V9  +  1:0 
$  =  "  ":  T^$  =  "0" : RETURN 

330IF  V0$  (T6)  [hEX(FF)THEN  390:  IF  T9  =  0THFN  3nn:G0SU^  2'^0:T9  =  0 

:rOTO  300 

340DEFFN'239(T6) :IF  T9=0THEN  350:GOSUB  240:T9=0 
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350IF  V9  =  0THEN  390:IF  V0$ (T6 ) ]HEX (FF) THEN  39 0 : T9  =  T6 : GO  SUB  25 

0 

36  0T9=0:INIT(FF)V0$ (T6) : STR (T0$ , Tl+1 , 1 ) , STR (T0$ , T2+1 , 1 ) =HEX ( 

00) :V9=V9-1:Q$="  ":RETURN 

370T8$="N" 

380O$="N":RETURN 

390T8$="X" 

4000$="X":RETURN 

410  PRINT  HEX(OAOAOA) ;TAB(15) ; "DEPRESS  EXEC  TO  CONTINUE" : INP 

UT   D:IF  D1=1THEN  420:LIMITS  F"E0B2F1" , Al , A2 , A3 : GOTO  430 

420  LIMITS  R"E0B2F1",A1,A2,A3 

430  T=Al+(A3-2) :H=T-1:J=H 

440  GOSUB  •2OO("0OO000N","9O0OOOS", 8,0, "ENTER  LAT  OF  LOWER  L 

EFT  CORNER. ENTER  AS  DDMMSS*  " , 2 ) : U1$=Q6$ : PRINT  "LOWER  LEFT  L 

AT=";U1$: INPUT  "IS  THIS  THE  CORRECT  VALUE?  (Y  OR  N)",C$:IF  C$ 

="N"THEN  440 

450  GOSUB  •200("0000000E","18000n0W", 9,0, "ENTER  LONG  OF  LOWE 

R  LEFT  CORNER. ENTER  AS  DDMMSS*  "  ,  2  )  :  B1$  =  Q6$  :  PRINT  "LOWET?  LEF 

T  LONG="; Bl$: INPUT  "IS  THIS  THE  CORRECT  V^LUE?(Y  OR  N)",C$:I 

F  C$="N"THEN  450 

460  GOSUB  '2OO("O000nON","9OOOOnS", 8.0, "ENTER  LAT  OF  UPPER  R 

IGHT  CORNER. ENTER  AS  DDMMSS*  " , 2 )  : U2 $  =  06 $ : PRINT  "UPPER  RIGHT 

LAT=";U2$ :INPUT  "IS  THIS  THE  CORRECT  VALUE? (Y  OR  N)",C$:IF 
C$="N"THEN  460 

470  GOSUB  '200  C"0OO00OOE","18OO0^OW",9  ,  0  ,  "ENTEIR  LONG  OF  UPPF 
R  RIGHT  CORNER.  ENTER  AS  DD>fMSS*  "  ,  2 )  :  B2 $  =  Q6 $  :  PRINT  "UPPFR  RI 
GHT  L0NG=";B2$: INPUT  "IS  THIS  THE  CORRECT  VALUE?  (Y  OR  N)",C$ 
:IF  C$="N"THEN  470 

480  IF  D1=1THEN  490:DATA  LOAD  DA  F (Al , S ) AS ( ) : GOTO  500 
490  DATA  LOAD  DA  R(Al,S)A$r) 
500  FOR  K=1T0  4 

510  IF  U1$]STR(A$ (K) ,2,7)THEN  530 
520  GOTO  740 
530  NEXT  K 

540  IF  D1  =  1THEN  550:DATA  LOAD  DA  F  (H , S ) A$ ( )  : GOTO  560 
550  DATA  LOAD  DA  R(H,S)A$() 
560  FOR  K=1T0  4 

570  IF  U1$]STR(A$ (K) ,2,7)THEN  590 
580  GOTO  610 
590  NEXT  K 

600  PRINT  HEX(OAOA) tPRINT  "YOUR  LOWER  LAT  EXCEEDS  HIGHEST  LA 
T  IN  DATA  FILE":PRINT  HEX (OAOA) : GOTO  820 
610  M=INT((Al+H)/2) 

620  IF  D1=1THEN  630:DATA  LOAD  DA  F (H , S ) A$ ( ) : GOTO  640 
630  DATA  LOAD  DA  R(M,S)A$() 
640  FOR  K=1T0  4 

650  IF  U1$]STR(A$ (K) ,2,7)THEN  690 
660  H=M 

670  IF  H=A1THEN  750 
680  GOTO  480 
690  NEXT  K 
700  A1=M 

710  IF  A1=JTHEN  1240 
720  IF  A1=H-1  THEN  740 
730  GOTO  480 

740  IF  U2$lSTR(A$ (1) ,2,7)THEN  750:PRINT  "YOUR  HIGHEST  LAT  [ 
LOWEST  LAT  IN  DATA  BASE":PRINT  REX fOAOA) : GOTO  820 
750  IF  D1=1THEN  760:DATA  LOAD  DA  F (S , S ) AS ( ) : GOTO  770 
760  DATA  LOAD  DA  R(S,S)A$() 

770  FOR  K=1T0  4:IF  U 1$ ] STR (AS (K) , 2 , 7 ) THEN  7"n:iF  B1$]STP(A$( 
K),9,8)THEN  790:IF  U 2$ f STR (AS (K) , 2 , 7) THEN  SlOrIF  B2$[STR(AS( 
K),9,8)THEN  790 
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780  C1=C1+1:A2$ (C1)=A$(K) :REM  *IF  ERR  18  OCCURS  ENTER  RUN810 
* 

790  NEXT  K 

800  GOTO  750 

810  PRINT  "TOTAL  NUMBER  OF  SITES=";C1 

820  IF  CIJOTHEN  850:PRINT  : PRINT  "ENTERED  VALUES  WERE:" 

830  PRINT  U1$,U2$ 

840  PRINT  Bl$ ,B2$ :PRINT  : GOTO  1230 

850  IF  Dl-ITHEN  860:SELECT  # IBIO , #2B10 : GOTO  870 

860  SELECT  #1350, #2350 

870  GOSUB  '230(1,1, 2, 1,"EPL1F1") 

880  INPUT  "DO  YOU  WANT  THE  EMITTER  LISTING  TO  INCLUDE  THE  PA 

RAMETERS  (Y  OR  N)",E$ 

890  INPUT  "DO  YOU  WANT  A  HARD  COPY(Y  OR  N)",C$ 

900  IF  C$="N"THEN  960 

910  STOP  "ENSURE  PRINTER  IS  ON.  SELECT  COKT/EXEC  TO  C0NT":SE 

LECT  PRINT  215:C$="Y" 

920  PRINT  "TOTAL  NUMBER  OF  SITES=";C1 

930  PRINT  "ENTERED  VALUES  WERE:" 

940  PRINT  U1$,U2$ 

950  PRINT  B1$,B2$ 

960  FOR  W=1T0  CI  :REM  INDEXING  THRU  LOCATIONS 

970  PRINT  HEX(0A0A):IF  C$="Y"THEN  980:PRINT  "PROCESSING  SITE 

#";W;"0F";C1 
980  L3=21 

990  IF  STR(A2$ (W) ,L3,5)="  "THEN  1130:REM  END  OF  FLINT  NUMBER 
S  ON  PLATFORM  CARD:REM  ***IF  ERR  IS  OCCURS  ENTEP  RUN  11? 
0*** 

1000  M4$=STR(A2$ (W) ,L3,5)  : REM  'M$=ELINT  NOTATION 
1010  GOSUB  '232(1, 0, M4$) :REM  FINDOLD 
1020  IF  0$[]"  "THEN  1110:REM  NO  MATCH 
1030  DATA  LOAD  DC  #2,A$() 

1040  D=D+1:A3$ (D)=A$ (0) : IF  E$="N"  THEN  1100:IF  Q=4THEN  1090 
1050  FOR  K=Q  TO  4 

1060  IF  A3$(D)=A$(K)  THEN  10 70 : D=D+1 : A3$ (D ) =A$ (K) 
1070  IF  STR(A$ (K) ,6,1)="-"THEN  1100 
1080  NEXT  K 

1090  Q='1:DATA  LOAD  DC  #2,A$():G0T0  1050 
1100  L3=L3+5:IF  L3]59  THEN  1130:GOTO  990 

1110  D=D+l:A3$(D)=STR(y4$ ,1,5) :STR(A3$(D) ,10, 9)="  NO  MATCH" 
1120  L3=L3+5:IF  L3[59THEN  990 

1130  PRINT  rPRINT  "SITE  /■'  ";W:PRINT  "LAT  :  "  ;  STR  (A2$  (W)  ,  2  ,  7)  :  P 
RINT        "L0NG:";STR(A2$ (W) ,9,8) :PRINT  "FCN  CODE :"; STR (A2 $ 
(W),61,2)       :PRINT  "COUNTRY  CODE : " ; STR (A2$ (W)  , 1 7  ,  2 ) 
1140  PRINTUSING  1340:PRINT  A3$(1):IF  E$="N"THEN  1150:PRINTUS 
ING  1360 

1150  IF  D=1THEN  1200:F0R  I=2T0  D:PRINT  A3$(I):IF  STR(A3S(I), 
6,1) [  ]"-"THEN  1160:PRINT 
1160  IF  C$="Y"THEN  1190 

1170  IF  1=6  THEN  1180:IF  I=16THEN  1180:IF  I-26THEN  1180:IF  I 
=36        THEN  1130:GOTO  1190 

1180  PRINT  HEX(OA) : INPUT  "MORE  TO  SEE,  DEPRESS  EXEC",C 
1190  NEXT  I 

1200  IF  C$="Y"THEN  1220 

1210  INPUT  "MORE  TO  BE  SEEN. DEPRESS  EXEC",G 
1220  D=0:NEXT  W 

1230  SELECT  PRINT  005 : C $="N" : E$="N" : PF INT  HEX (OAOA) : INPUT  "N 
0  MORE  TO  BE  SEEN.  TO  CONTINUE  DEPRESS  EXFC",E 
1240  PRINT  "DO  YOU  WANT  TO" 
1250  PRINT  "      l.PLOT  THE  EVITTEP.S" 

1260  PRINT  "       2.RETUPN  TO  THE  BEGINNING  TO  DO  ANOTHER  ARE 
A" 
1270  PRINT  "      3.  STOP  WORKING-" 
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1280  PRINT  "      4. RETURN  TO  'START*  PROGRAM" 

1290  PRINT  "      5. DO  YOU  WANT  A  HARD  COPY" 

1300  INPUT  E 

1310  ON  E  GOTO  13  30,1370,1370,1370,910 

1320  PRINT  "INVALID. REENTER":GOT0  1240 

1330  REM  PLOT  ROUTINE : PRINT  "NOT  INSTALLLED  AT  THIS  TIME  SEL 

ECT  A  DIFFERENT  NUMBER":GOTO  1240 

1340  %ELINT  MC   NATO  NAME    FC    NTDS     COMMENTS 

1350  %LAT/LONG        FCCC 

1360  %ELINT  MC   RFLO   RFHI  PRFLO  PRFHI  PWLO  PWHI  MT  SCTYP   S 

PL  SPU 

1370  GOSUB  *239  (1)  :D,C1  =  0:  IF  E=»2THEN  420:IF  E=3THEN  1400 

1380  IF  D1=1THEN  1390:INPUT  "INSTALL  PGMS  DISK  IN  DRIVE  #1, 

DEPRESS  EXEC  TO  CONTINUE", D 

1390  LOAD  DC  F"START" 

1400  STOP 

1410  DEFFN'2  00(Q$  (1 ) , Q$ (2 ) , Q3 , Q4 , Q5$ , Q5 ) 

1420  SELECT  PRINT  005 ( 64 ): PRINT  HEX (0301 OA) ; Q5$ ; TAB (6 3) : PRIN 

T  "?";:FOR  0S=1T0  Q3:PRINT  "-";:  NEXT  08:  IF  q5=2THEN  1430:P 

RINT  "/";:IF  04=OTHEN  1430:FOR  08=1T0  04:PRINT  "-";:NEXT  08 

1430  PRINT  TAB(63)  :PRINT  HEX  (010A0A090ci )  ;  :  Q8  =  0  :  INIT(20)06$: 

O7$="0":06=0 

1440  09$  =  "  ":KEYIN  09$  ,  1450  ,  14 AQ : GOTO  1440 

1450  IF  O9$=HEX(0D)fHEN  1500:IF  09 $=HEX (08 ) THEN  1530:IF  09$= 

HEX(E5)THEN  1420:PRINT  09$::IF  Q5=2THFN  1570:ON  VAL(09$)-A2 

GOTO  1470, 1460, 1470, 14 P 6 

1460  IF  O9$[HEX(30)THEN  1520:IF  09$ ]HEX O^) THFN  1520:GOTO  14 

90 

1470  IF  08[10THEN  15 20 : 06=1 : GOTO  1^90 

1480  IF  P0S(Q6$=".")=0THEN  14QP:IF  POS (06$= ".")[] Q8+1TREN  15 

20 

1490  O8=O8+l:STR(Q6$,08,l)=09$:U3$=O6$ :COTO  1440 

1500  PRINT  HEX(070D0A)  rPRINT  TAB(63):IF  05=2THEN  15'^0:IF  08  = 

OTHEN  1520:IF  Q8]13THEN  1520:IF  Q8]Q3+04THEN  1 5 2 0 : Q 7  =  P0S  (06$ 

="."):IF  07=0THEN  1510:IF  Q7 ] Q3+Q6+1THEN  1520:IF  08-07J04THE 

N  1520 

1510  CONVERT  STR  (Q6$  ,  1 ,  08  )  TO  09:C01TVERT  0$(1)TO  Q6:C0::VERT  Q 

$(2)T0  07:IF  09[Q6THEN  1520:IF  Q9[=Q7THEM  1590 

1520  PRINT  HEX(07) :PRINT  HEX (OlOAOAOA) ; "INVALID .  RE-ENTER":G 

OTO  1420 

1530  08»Q8-1:IF  Q8[0THEN  1520 : STR (06$ , Q8+1 , 1) ="  " : IF  Q8=Q3TH 

EN  1560:IF  08 [=Q3+Q4THEN  1550 

1540  PRINT  HEX(032008) ; :G0T0  1440 

1550  PRINT  HEX(082D08) ; :GOTO  1440 

1560   IF  05[]1THEN  1540:PRINT  HEX (08 2F08 ) ; : GOTO  1^40 

1570  IF  Q9$[HEX(20)THEN  1520:IF  Q9$ ]HEX ( 7F) THEN  1520:GOTO  14 

90 

1580  IF  Q8]Q3THEN  1520:IF  Q6$ [ Q$ (1) THEN  1520:IF  06$]Q$(2)THE 

N  1520 

1590  RETURN 
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CAI-CULATK 
LIMITS  OF 
E03[FI 
(A1,A2,A3,T, 


HI 


<D 


:puT  £.  vf:rif^ 

LATS  &  LONGS 


JiL 


-<- 


I   DATALOAD 
(A1,S)A$ 


■<- 


FOR  K  =■  i  CO  4 


/^ 


FOR  K=l  TO  4 


INCREMENT 
K 


INCREMENT] 
K 


ST     i  (     TERMINATE     \ 
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LAND 
(DOES  NOT  INCLUDE  THOSE  USED  BY  KFAM  AND  DEFFN'200) 

D    EMITTER  COUNTER 

E    INPUT  VARIABLE  FOR  PROGRAM  SELECTION  AT  COMPLETION  OF 
PRINTING 

G  CONTINUATION  VARIABLE 

H  HIGHEST  SECTOR  VALUE  IN  BINARY  SEARCH 

I  INDEX  VARIABLE  USED  IN  PRINT  ROUTINE 

K  INDEX  VARIABLE  WHEN  SEARCHING  THROUGH  A  SECTOR  OF  DATA 

M  MID  SECTOR  VARIABLE  IN  BINARY  SEARCH 

S  RECEIVING  VARIABLE  FOR  SECTOR  NUMBER  AFTER  DA  LOAD 

W    INDEX  VARIABLE  WHEN  INDEXING  THROUGH  SITE  LOCATION 
BUFFER  ARRAY (A2$) 

Al  FIRST  SECTOR  ADDRESS  IN  LAND  DATA  FILE 

A2  ENDING  SECTOR  ADDRESS 

A3  NUMBER  OF  SECTORS  USED  IN  DATA  FILE 

A4  TOTAL  NUMBER  OF  SECTORS  USED  IN  LAND  DATA  FILE 

CI  NUMBER  OF  SITE  ACCUMULATOR 

Dl     COM  VARIABLE  FOR  NUMBER  OF  DISK  DRIVES.   PASSED  FROM 
START  PROGRAM 

L3     COUNTER  USED  TO  LOCATE  END  OF  DATA  IN  A  STRING  OF  SITE 
DATA 

A$  RECEIVING  ARRAY  FOR  DATA  LOAD  COMMANDS 

A2$  SITE  LOCATION  BUFFER  ARRAY 

A3$  EMITTER  INFORMATION  BUFFER  ARRAY 

Bl$  L0V7ER  LEFT  LONGITUDE 

B2$  UPPER  RIGHT  LONGITUDE 

C$  EITHER  "Y"  OR  "N" .   IF  "Y" ,  A  HARD  COPY  IS  DESIRED 

E$     EITHER  "Y"  OR  "N" .   IF  "Y" ,  PARAMETERS  ARE  TO  BE 
INCLUDED  IN  PRINTOUT. 


56 


M4$   ELINT  NOTATION  VARIABLE.   USED  IN  FIND  OLD  ROUTINE  TO 
LOCATE  EMITTER  DATA 

Ul$   LOWER  LEFT  LATITUDE 

U2$   UPPER  RIGHT  LATITUDE 
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MOBILE 

10  REM  DEVELOPED  BY  LT  S . W . SMITH , USN  2/12/79 

20  PRINT  HEX(03):C0M  Dl 

30    PRINT    TAB(IO) ; "THIS    PGM    WILL    PROVIDE    THE    OPERATOR    THE    EOB 

FOR    A    GIVEN    SHIP    OR    "; TAB ( 1 0 ); "AIRCRAFT .     THE    PLATFOPM    IS    ID 
ENTIFIED    BY    NAME    AND    COUNTRY    CODE" 
40    IF    D1=2THEN    60 
50    PRINT    HEX(OAOA) ;TAB(10) ;"ENSURF    THE    EOB    DISK    IS    INSTALLED 

INDRIVE    #2":PRINT    TAB(18);     "AND    THE    EPL    DISK    IN    DRIVE    #3":G 
OTO    410 
60    PRINT    HEX(OAOA) ;TAB(10) ; "ENSURE    THF    FOB    DISK    IS    INSTALLED 

IN    DRIVE    ^a":PRINT    TAB(18);"AND    THE    EPL    DISK    IN   DRIVE    ^' 2 " :  G 
OTO    410 

70    COM    Al$  (4)62, A$19,A2$  (9)62, A3$  ("70)63 
80PETURN 

90C0M    V7$8,T0$7,V9,V0$ (3)2,T1 (3) :COM    V0$ 2 , Vl$8 , V2$ 2 , V3$ 2 , V4$ 
2,V6$l:COM    02$2,03$2,V5$l,V8$l,T5$3n,T7$3'1:COy    T0,T9,T2$2,T4 
S  3,  T2,V8,T8,T1,T8$1,T2$  (8)2,1(8)  :  COT!    T4  ,  T5  ,  V6  ,  V7  ,  VI 
lOOCOM    O,O$l,T9$2,T0$  (4)60 

llOCOM    T6$1,T3$3,T1$(1)2,T3$(1)3  3,V9$2T1$30 
120ADDC(V9$,V0$) :DATA    LOAD    DA    T 'Tl , (V9$ , V9 $) T9$ , T0$ (): RETURN 

13002=99 

140V9$=T2$:FOR  T3=T0T0  ISTEP  -1:G0SUB  120 : T2$ (T3) =T9$ : MAT  SE 

ARCHTO$() [1,V7] , ]STR(T1$ ,1,T4)T0  Tl$()STEP  T5 : T=VAL (STR ( Tl$ ( 

1),2))-T5:IF  TJOTHEN  150:T=V1 

150MAT  COPY  T0$  ()  [T,T5]T0  T3 $  (  )  : V9 $  =  STR  (T3$  ( 1 )  , T4  +  1 , 2 )  : I F  Q2 

[9  9THEN  180 

160T(T3)='T:NEXT  T3  :  T7$  =  T1$  :  V=2  :  IF  STR  (Tl$  ,  1 ,  T4  )  =STR  CT3$  (1 )  ,  1 

,T4)THEN  170:V=3 

170RETURN 

180MAT  COPY  T0$  ()  [V1,1]T0  T1$():IF  Tl$ ( 1) =HEX (FF) TEEN  190:Q2 

=02+l:G0T0  160 

1Q002=0:GOTO  160 

2  00T4=VAL(STR(V1$ ,5) ) : T5=T4+3 : V6=VAL (STR (Vl$ , 6 ) ) : V7=T5*V6 : VI 

=V7-T5+1:RETURN 

210Q$="  ":IF  T6[1THEN  390:IF  T6=T9THEN  80 

220GOTO  390 

230DATA  SAVE  DA  T  $ /-'Tl ,  (V0$  ,  V9$  )  02$  ,  03$  ,  V5  $  ,  V8$  ,  V0$  ,  Vl$  ,  V2  $  ,  V 

3$,V6$,T2$,T0,Tl,T2,V8,T4$,T5$,T7$,f2$(),T(),T8$ : RETURN 

240DATA  LOAD  DA  T #T1 (T9 )  ,  (  VO $ ( T9 )  , V9 $ ) 0 2  $ , 03$ , V5 $ , V8 $ , VO $  ,  ^n 

$,V2$,V3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2$(),T() ,T8$:RETU 

RN 

250T5=VAL(T4$)*256+VAL(STR(T4$  ,2)  )  rDBACKSPACF  ^^T2,BEG  :IF  T6 

=  OTHEN  260:DSKIP  /*T2,T6S 

2  600=VAL(STR(T4$,3) ) :0$ ,T8$="  ": RETURN 

270DEFFN'232 (T6,T7 ,T1$) :GOSUB  210:IF  0$]"  "THEN  80:GOSU3  130 

:T4$=STR(T3$ (1) ,T4+1, 3) :T8$="2":IF  vr]2THEN  370:IF  T4$]HEXrF 

F)THEN  370:GOSUB  25n:RETURN 

280DEFFN'230(T6,T7,Q2,Q3,V7$) :IF  T6[1THEN  3S0:IF  T6]3THEN  38 

0:IF  V9]0THEN  320 : INIT (FF) V0$ ( ) : INIT (On ) T0$ 

290IF  STR (T0$,T7+1,1) ]HEX(00)THEN  33n:IF  S TR CTOS , 02+1 , 1 )] HEX 

(OO)THEN  380:IF  Q2=T7THEN  380 

300DATA  LOAD  DC  OPEN  Tf' 02  ,  V7  S  :  S  TR  (V  7  $  ,  5  , 1 )  =  "K"  :  COT!  VERT  03T0 

STR(V7$,6,1)  ,  (#)  :  LIMITS  T^^T7,V7$  ,  T  ,  V  ,  T3  :  V=INT  (T/ 2  5  6  )  :BIN(VO$ 

)=V:BIN(STR(V0$,2)  )  =T-2  5  6*V  :  T9  =  T6  :  V0$  (T9)=»V0$  :  Tl  (T9  )  =T7  :  GOSU 

B  240:GOSUB  200 : VO$=VO$ (T9 ) : T1=T7 : T2=Q2 

310STR(TO$,T7+l,l)=nEX(01) : STR (T0$ , Q2+1 , 1 ) =HEX (01 ) :V9=V9+1:0 

$="  ":T8$="0":RETURN 

320IF  V0$ (T6) [HEX(FF)THEN  380:IF  T9=0THEN  290:GOSUB  230:T9=0 

:GOTO  290 

330DEFFN'239(T6) : IF    T9=0THEN    340:GOSUB    230:T9=0 

340IF    V9  =  0THEN    380:IF    V0$  (T6) ] HEX (FF ) THEN    3 80 : T9  =  T6 : GOSUB    24 

0 


3  50T9=0:INIT(FF)V0$ (T6) : STR (T0$ , Tl+1 , 1) ,STR(TO$ , T2+1 , 1 ) =HEX ( 

00) :V9=V9-1:Q$="  ":RETURN 

360T8$="N" 

370Q$="N":RETURN 

380T8$="X" 

390O$="X":RETURN 

i00%# 

410  PRINT  HEX(OAOAOA) :PRINT  TAB (2 0) ; "DEPRES S  EXEC  TO  COMTINU 

E":        INPUT  DtPRINT  HEX(03) 

420  IF  D1  =  1THEN  430:SELECT  #  1  3 10  ,  ^^  2  310  :  GOTO  440 

430  SELECT  /f  1  BIO,  #2  ElO 

440    I,C,D=0 

450    GOSUB     '230     (1 , 1 , 2 , 1 , "EOBIFI")     ;REM    OPEN    FILES 

460    INPUT    "DO    YOU    WANT    THE    PARAMETERS    INCLUDED    IN    THE    LISTIN 

G  ?  (Y  OR  N)",G$ 

470  PRINT  "PLATFORM  NAME  IS":INPUT  STR(A$,1,15) 

480  PRINT  "PLATFORM'S  COUNTRY  CODE  IS":INPUT  STP(A$,16,2) 

490  GOSUB  '232  (1,0, A$)   : REM  FIND  OLD 

500  IF  Q$[]"  "  THEN  580   :REM  NO  MATCH 

510  DATA  LOAD  DC  #2,  Al  $  (  )   :  REM  LOAD  PLATFOR:*  DATA 

520  A2$(1)=A1$ (Q) :I=1 

530  IF  STR(A1$ (0) ,20,1)="  "THEN  600:IF  Q=4THEN  570 

540  FOR  K=Q  TO  4:IF  A2 $ (1 ) =A1$ (K) THEN  560 

550  I=I+1:A2$ (I)=A1$ (K) 

560  IF  STR(A1$ (K) ,19,1)="-"THEN  600:NEXT  K 

570  Q  =  1:DATA  LOAD  DC  ?/ 2  ,  Al  $  (  )  :  GOTO  540 

530  PRINT  HEX(OAOA):  PRINT  "UNIT  NOT  IN  DATA  BASE" 

590  GOTO  930 

600  GOSUB  '239  (1)     :REM  CLOSE  PLATFORM  FILE 

610  IF  D1  =  1THEN  620:SELECT  ;V'1B10  , //2  BIO  :  GOTO  630 

620  SELECT  //1350,#2350 

630  GOSUB  '230(1,1,2,1, "EPLIFI")  : REM  OPEN  EPL  FILES 

640  FOR  W=l  TO  I   : REM  INDEXING  THRU  UNITS 

650  M3=21 

660  IF  STR(A2$ (W) ,M3,5)="    "  THEN  800  :REM  END  OF  ELINT  NUM 

BERS  ON  PLATFORM  CARD 

670  M4$=STR(A2$ (W) ,M3,5) 

680  GOSUB  '232  (1,0, M4$) 

690  IF  0$  f ]"  "  THEN  780 

700  DATA  LOAD  DC  #2,  Al$() 

710  C=C+1:A3$ (C)=A1$ (0) : IF  G$="N"THEN  790 

720  FOR  K=0  TO  4 

730  IF  A3$  (C)=A1$  (K)  THEN  74  0  :  C=»C+1 :  A  3$  (C  ")  »A1$  (  K) 

740  IF  STR(A1S (K) ,6,1)="-"THEN  760 

750  NEXT  K:0  =  1:DATA  LOAD  DC  '' 2  ,  Al$  ( )  :  GOTO  720 

760  M3=M3+5:IF  M3J59THEK  800:G0T0  66^ 

770  GOTO  800 

7  80  C  =  C+1:A3$ (C ) =STR ("4$  ,  1  ,  5 )  :STR(A3$(C)  ,10,Q)="NC  MATCH" 
790  M3=M3+5:IF  M3r=60THEN  660 

8  00  NEXT  W 

810  PRINT  rPRINTUSING  1020:PRINT  S TR (A2$ (1 ) , 2 , 1 7  )  ; STR ( A2$ ( 1) 

,61,2)  rPRINTUSING  lOlOrPRINT  A3$(1):IF  G$  =  ^'N"THEN  820:PRINT 

USING  1030 

820  FOR  W=2T0  C : IF  G$  =  "Y"THEN  830:IF  S TR (A3$ (W)  , 8  ,  1  )  [  ] "0 "THE 

N  860 

830  PRINT  A3$(W):IF  S TR (A3$ (W) , 6 , 1) [ ] "-"THEN  840:PRINT 

840  IF  C$="Y"THEN  860 

850  IF  W=10THEN  890: IF  W=20THEN  890:IF  W=30THEN  890 

8  60  NEXT  W 

870  IF  C$="Y"THEN  920 

880  GOTO  900 

890  INPUT  "MORE  TO  SEE.  DEPRESS  EXEC",F:  GOTO  860 
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900  INPUT  "DO  YOU  WANT  A  HARD  COPY  (Y  OR  N)",C$ 

910  IF  C$="N"  THEN  9 30 : C $= "Y" : SELECT  PRINT  215:GOTO  810 

920  SELECT  PRINT  005:C$="N" 

930  PRINT  "DO  YOU  WANT  TO:" 

940  PRINT  "         l.DO  OTHER  UTTITS" 

950  PRINT  "         2. STOP" 

960  INPUT  "         3. RETURN  TO  'START'  PR0GPAM",E 

970  GOSUB  '239(l):ON  E  GOTO  980,1040,990 

980  PRINT  HEX(03):  GOTO  420 

990  COM  CLEAR  : IF  D1=1THEN  1000:PRINT  HEX ( 0 3 OAOAOA) : INPUT  "I 

NSTALL  PGMS  DISK  IN  DRIVE  /^  1 ,  DEPRESS  EXEC  TO  CONTINUE ",  D  :  LO 

AD  DC  F"START" 

1000  LOAD  DC  F"START" 

1010  %ELINT  MC   NATO  NAME    EC   NTDS     COf^MENTS 

1020  %UNITS  NAME      CCFC 

1030  %ELINT  MC   RFLO   RFHI  PRFLO  PRFHI  PWLO  PV7III  MT  SCTYP   S 

PL   SPU 

1040  STOP 
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COSl'li'     -■  UJ 
(Ol'I.N    KOliUl 
fll.ES) 


INPUT 
|PLi\TKORM"S 

Inamf,  ^,CCI,A§1 


GOSUB'  232 
(FIND  OLD  AS) 


I  -  I+l 
A2$(I)-Al$(Q) 


PLATFORM 

NOT  IN  DATA 

BASE 


YES 


^' 


YES 


\^ 


Q  -  I 


fDATA  LOAD 
(AIS) 


<  I 


\^ 


GOSUB'  239 
(CLOSE  EOB 
FILES) 


FOR   K-Q    CO   4 


INCREMENT    K 


GOSUB'  230 
(OPEN  EPL2F1 
FILES) 


0 


ING 


61 


FOR  W=l    CO    I 
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MOBILE  PLATFORM 
(DOES  NOT  INCLUDE  THOSE  USED  BY  KFAM) 

C  COUNTER  FOR  PARAMETER  DATA 

D  INPUT  VARIABLE  FOR  DEPRESS  EXEC  TO  CONT 

E  INPUT  VARIABLE  FOR  END  OF  PROGRAM  OPTION 

F  INPUT  VARIABLE  FOR  MORE  TO  BE  SEEN  DEPRESS  EXEC 

I  COUNTER  FOR  NUMBER  OF  LINES  OF  DATA  STORED  IN  A2$ 

K  INDEX  VARIABLE  IN  FOR  TO  ROUTINES 

W      INDEX  VARIABLE  FOR  STEPPING  THROUGH  A2$  WHEN  RETRIEVING 
EMITTER  INFORMATION 

Dl     NUMBER  OF  DISK  DRIVES.   PASSED  FROM  START  PROGRAM 

M3     INDEX  VARIABLE  TO  STEP  THROUGH  THE  STRING  OF  FLINT 
NOTATIONS  CONTAINED  IN  EACH  LINE  IN  A2$ 

A$  PLATFORM  NAME  AND  CC  VARIABLE.   USED  IN  FIND  OLD  ROUTINE 

Al$  DATA  LOAD  RECEIVER  ARRAY 

A2$  BUFFER  FOR  DATA  FROM  THE  FOB  DATA  FILE 

A3$  BUFFER  FOR  PARAMETER  DATA  FROM  THE  EPL  DATA  FILE 

C$  HARD  COPY  RECEIVER  VARIABLE.   EITHER  Y  OR  N 

G$  EQUAL  TO  Y  IF  PARAMETERS  ARE  TO  BE  INCLUDED  IN  LISTING 

M4$    FLINT  NOTATION  VARIABLE.   USED  IN  FIND  OLD  ROUTINE  TO 
RETRIEVE  EMITTER  INFORMATION 
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MATCH 

10  REM  MATCH   DEVELOPED  BY  LT  S . W. SMITH , USN  2/12119 

20  PRINT  HEX(03):C0M  Dl 

30  COM  D1,A1$(100)64,A$(4)62,U$5,V$5,W$4,P$(1)8 

40  COM  X$64,N$8,Q2$2,Q3$2,Q9$2,Q0$(4)60 

50  GOTO  490 

60  RETURN 

70COM  V7$8,T0$7,V9,V0$ (3)2,T1(3) :COM  V0$2 , Vl$ 8 , V2$ 2 , V3$ 2 , V4$ 

2,V6$l:COM  Q 2$ 2 , 03$ 2 , V5$l , V8$ 1 , T5$ 30 , T7$ 30 : COM  TO , T9 , T2$2 , T4 

$3,T2,V8,T3,Tl.Ta$l,T2$(8)2,T(8) : COM  T4,T5,V6,V7,V1 

80COM  0,0$1,T9S2,T0$ (4)60 

9  0C0M  T6$1,T3$3,T1$(1)2,T3$(1)33,V9$2,T1$30 

100  DIM  Q$  (2)64,Q5$64,Q7$1 

110ADDC(V9$,V0$)  :DATA    LOAD    DA    T//T1  ,  (V9  $  ,  V9  $  )  T9  $  ,  TO  $  (  )  :  F  FTUFN 

12002»99 

130V95^=T2$  :FOR    T3  =  T0TO    ISTEP    -IrGOSUB    11 '^ :  T2  $  (T3  )  =T9  $  :^^AT    SE 

ARCPTO$ f) [1,V7] , ]STR(T1$ ,1,T4)T0    T1$()STEP    T5 : T=VAL ( S TR CTIS T 

1),2))-T5:IF    TIOTHEN    1A0:T=V1 

140MAT    COPY    T0$  ()  rT,T5lT0    T3$ ()  : V9$  =  STR rT3$ ( 1 ) , T4+1 , 2 ) : I^    02 

r^gTHEN    170 

150T(T3)=T:NEXT  T 3 : T7$  =  T1 $ : V=2 : IF  STR (Tl$ , 1 , T4 )  =  STP  (T3$  (1)  ,  1 

,T4)THEN  160:V=3 

160RETURN 

170MAT  COPY  T0$  ()  [V1,1]T0  Tl$():IF  T 1$ (1 ) =HEa (FF ) THEN  180:Q2 

=02+l:G0T0  150 

180O2=0:GOTO  150 

190T4  =  VAL (STR(V1$,5) )  : T5  =  T4  +  3 : V6  =  VAL ( STR ( VI  $ ,6)):V7  =  T5*V6:V1 

=V7-T5+1:RETURN 

200Q$="  ":IF  T6[1THEN  470:IF  T6=T9THEN  60 

210GOTO  470 

220DATA  SAVE  DA  T$  ;VT1 ,  (  V0$  ,  V9  $  )  Q2$  ,  Q3$  ,  V5  $  ,  V  8  $  ,  VO  $  ,  VI  $  ,  V2  ^  ,  V 

3$,V6?,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2^(),T(),T8$ : RETURN 

230DATA  LOAD  DA  T#T1 (T9 ) , ( VO $ (T9 ) , V9$ ) 02 S , 0 3$ , V5$ , V8$ , VO $ , VI 

$,V2$,V3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2$(),T() ,T8$:RETU 

RN 

240T6=VAL(T4$)*256+VAL(STR(T4$ ,2) ) :DBACKSPACE    #T2,BEG     : IF    T6 

=  0THEN    250:DSKIP    /^T2,T6S 

2  5  0Q=VAL(STR(T4$ ,3)):Q$,T8$="  " : RETURN 

260DEFFN'232 (T6,T7 ,T1$) :GOSUB  200:IF  0$]"  "THEN  60:GOSUB  120 

:T4$=STR(T3$  (1)  ,T4  +  1,3)  :T8$  =  "2":  IF  V[]2THEN  45C:IF  T4$]HE::(F 

F)THEN  450:GOSUB  240:RETURN 

270DEFFN'235  (Tf^)  :GOSUB  200:IF  0$]"  "THEN  60  :  INIT  r  00  )  Tl  $  :  0$  ,  T 

8$="5":GOTO  290 

280DEFFN'237 (T6) :GOSUB  200:TF  0$]"  "THEN  6n:T=T(l):IF  T8$=" 

"THEN  300:IF  T 8$ ] HEX (40) THEN  460:T1$=T7$ 

290COSUB  120 

300T=T+T5:IF  T 2$ (1 ) =T9 $  THEN  310 : V9 $  =  T2 $  ( 1 )  : G0SU3  lin 

310IF  TlVlTHEN  330:MAT  COPY  T0$  ( )  F T, T5 ] TO  T3$():IF  T3$(1)]HE 

X(FF)THEN  330 

32  0T7$=STR(T3$(1),1.T4):T4$=STR(T3$(1) ,T4+1, 3) : IF  T4$ 1HEX(FF 

)THEN  440:T (1)=T:T2$ (1)=T9$ :GOSUB  2A0:RETURN 

330T3=1 

340T3=T3+1: IF  T31T0THEN  4 ^0 : V9 $=T2$ (T3 ) : GOSUB  11 ^ : T=T (T3 ) : T= 

T+T5:IF  TlVlTHEN  340:MAT  COPY  TO$()[T,T51TO  T3$r):IF  T3$(l)] 

HEX(FF)THEN  340 

350T(T3)=T:IF  T3=1THEN  3 2^ : V9$=STR (T3 $ (1 ) , T4+1 , 2 ) : GOSUB  110: 

MAT  COPY  T0$ ()  [1,T5]T0  T3$  ( )  : T3  =  T3-1 : T= 1 : T2 $ (T3 ) =T9 $ : GOTO  35 

0 

360DEFFN'230(T6,T7,Q2,03,V7$) : IF  T6[1THEN  460:IF  T6]3THEN  46 
0:IF  V9]0THEN  400 : INIT  (FF) V0$ (): INIT (00 ) T0$ 

370IF  STR(T0$,T7+1,1) ]HEXC00)THEN  460:IF  S TR (T0$ , 02+1 , 1 )] HEX 
(OO)THEN  460:IF  0 2=T7THEN  4 60 
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380DATA    LOAD    DC    OPEN    T#Q2 , V7 $: STR (V7$ , 5 , 1) ="K" : CONVERT    03T0 

STR(V7$,6,1)  ,  (//)  :  LIMITS  T//T7,V7$,T,V,T3:V=INT(T/256):BIN(V0$ 

)=V:BIN(STR(VO$ , 2 ) ) =T-2  5  6*V : T9=T6 : V0$ (T9) =V0$ : T1(T9 ) =T7 : GOSU 

B  230:GOSUB  190 : VO$=VO$ (T9 ) : T1=T7 : T2=Q2 

390STR(T0$.T7+1,1)=HEX(01) : STR (T0$ , Q2+1 , 1) =HEX (01) :V9=V9+1:Q 

$  =  ••  "  :T8$  =  ^'0":RETURN 

400IF  V0$  (T6)  [HEX(FF)THEN  460:IF  T9  =  0THEN  370:GOSUB  220:T9  =  0 

:G0T0  370 

410DEFFN'239 (T6)  :  IF  T9  =  0THEN  420:GOSUB  22n:T9  =  0 

420IF  V9»0THEN  460:IF  V0$ (T6 ) ]HEX (FF) THEN  46 0 : T9  =  T6 : GO  SUB  23 

n 

4  3OT9  =  O:INIT(FF)V0$  (T6)  :STR(TO$  ,T14-1,1)  ,  STR  (T0$  ,  T2+1  ,  1)=HEX( 
00) :V9=V9-1:Q$="  "rRETURN 

440TP$="N" 

450O$="N":RETURN 

460T8$="X" 

4700$="X":RETURN 

480IF  0$="5"THEN  440 : T8$ , 0$= "E" : RETURN 

^90  PRINT  "THIS  PGM  SEARCHES  THE  EPL  FOR  ALL  POSSIBLE  MATCHE 

5  TO  PARAMETERS" ; TAB ri8) ; "SUPPLIED  BY  THE  OPERATOR" 

500  IF  D1=1THEN  510:PRINT  HEX (OAOA) : TAB ( 5 ); "ENSURE  THE  EPL  X 

FY  FILE  DISK  IS  INSTALLED  IN  DRIVE  ■:/l":PPINT  TAB(15);"AND  TH 

E  EPL  DISK  IN  DRIVE  //2":G0T0  520 

510  PRINT  HEX(OAOA) ;TAB(5) ;"ENSURE  THE  EPL  KEY  FILE  DISK  IS 

INSTALLED  IN  DRIVE  f/2":PRINT  TAB(15);"AND  THE  EPL  DISK  IN  DR 

IVE  #3" 

520  PRINT  HEX(OAOA) ;TAB(10) ; "IF  PROPER  DISKS  ARE  INSTALLED, S 

ELECT  EXEC": INPUT  G 

530  PRINT  HEX(03) 

540  IF  D1  =  1THEN  550:SELECT  i-1    310,  m    B10:GOTO  560 

550  SELECT  #1  BIO,  #2  350 

560  GOSUB  '230  (1 , 1 , 2 , 3 , "EPLIFI") 

570  PRINT  "DO  YOU  WANT  TO  MATCH  IN:" 

580  PRINT  "        l.FREQ,PRF,&PW" 

590  PRINT  "        2.FREQ  &  PRE" 

600  PRINT  "        3.FREQ  &  PW" 

610  INPUT  S5 

620  GOSUB  '200 ("40", "10500", 6,0, "ENTER  FREO  " , 1 ) : K=09 : CONVER 

T  0       9T0  U$,  (##//-'fr)  :  GOSUB  '50(U$) 

630  PRINT  "FREO=";U$ : INPUT  "IS  THIS  THE  DESIRED  VALUE (Y  OR  N 

)  CR=Y  ",D$:IF  D$="N"THEN  620 

640  IF  S5=»3THEN  680 

650  GOSUB  '200("0", "9999", 5,0, "ENTER  PRE" , 1 ) : K=09 : CONVEnT  09 

TO        VS  ,(//#// /^O  :  GOSUB  '52(V3) 
660  PRINT  "PRF=":V$ : INPUT  "IS  THIS  THE  DESIRED  VALrE(Y  OR  N) 

CR=Y",D$:IF  D$  =  ''N"THEN  650 
670  IF  S5=2THEN  700 

680  GOSUB  '200("0.0","99.9",3,1,"ENTEK  PW  ", 1 ): K=Q9 : CONVERT 
OQ        TO  W$  (#'•'.  ^O:    GOSUB  ♦51(WS) 

690  PRINT  "PW=^';W$  :  INPUT  "IS  THIS  THE  DESIRED  VALUE  (Y  OF  N)C 
R=Y",D$:IF  D$="N"THEN  680 
700  GOSUB  '235  (1)     : REM  FINDFIRST 
710  IF  U$ [STR(T7$ ,10,5)THEN  800 
7  20  DATA  LOAD  DC  -^'2,  A$() 
730  IF  U$]STR(A$ (0) ,16,5)THEN  800 
740  IF  S5=3  THEN  770 

750  IF  V$[STR(A$ (0)  ,22,5)THEN  800:IF  V  $ ] STR  (AS (0)  , 2  & , 5 ) THEN 
800       :REM  PRF  MATCH? 
760  IF  S5=2  THEN  780 

770  IF  W$[STR(A$ (Q) ,34,4)THEN  800:IF  W$ ] STR ( A? (Q) , 39 , 4 ) THEN 
800        :REM  PW  MATCH? 

78()  W=W+1:A1$  (W)=A$  (Q)  :PRINT  HEX  (0  3)  ;  "^!ATCHES  MADE  =";W:PRIN 
T  'IF  YOU  NEED  TO  TERMINATE  THE  SEARCH  MODE  AND  WISH  TO  SEE 
THE     MATCHES  MADE; ENTER  RUN830" 
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810  IF  Q$="E"  THEN  830   :REM  END  OF  EPL  FILE 

820  GOTO  710  : REM  LOOPING  BACK  TO  CHECK  NEW  KEY 

830  IF  W]0  THEN  880   :REM  IF  POS  THEN  GOING  TO  PRINT  ROUTINE 

840  PRINT  HEX(03):0N  S5  GOTO  850,360,870 

850  PRINT  "NO  MATCH  FOR:   FREQ=" ; U$ , "PRF=" ; V$ , "PW=" ; W$ : GOTO 

1120 

860  PRINT  "NO  MATCH  FOR:   FREO=" ; U$ , "PRF=" ; V$  : GOTO  1120 

870  PRINT  "NO  MATCH  FOR:   FREQ=" ; U$ , "PW=" ; W$   :GOTO  1120 

880  GOSUB  '239(1) 

890  IF  D1=»1THEN  900:SELECT  #  IBIQ  ,  #2B10  :  GOTO  910 

900  SELECT  /--' 1350  , //2  350 

910  GOSUB  '230 (1,1,2,1,"EPL1F1") 

920  FOR  1=1  TO  W 

930  IF  1=1  THEN  950 

940  IF  STR(P$ (1) .1,5)=STR(A1$ (I) ,1,5)THEN  1020:PRINT 

950  P$(1)=STR(A1$ (I)  ,1,5) 

960  GOSUB  '232  (1 , 0 , P$ (1) ) : IF  Q$[]"  "THEN  980 

9  70  DATA  LOAD  DC  #2,A$() 

980  IF  I]l  THEN  1010 

990  PRINTUSING  1060 

1000  PRINT  A$(Q):PRINT  HEX (OA) : PRINTUSING  1070:G0TC  1020 

1010  PRINT  A$ (0) 

1020  PRINT  A1$(I):IF  C$="Y"THEN  lOAO 

1030  IF  1=6  THEN  lOSOtlF  I=12THEN  1050:IF  I=1«TFEN  1050:IF  I 

=24        THEN  1050:IF  I=30THEN  1050 

1040  NEXT  I: IF  C$="Y"THEN  1110: INPUT  "NO  FURTHER  MATCHES. DEP 

RESS  EXEC  TO  C ONTINUE" , G : GOTO  1080 

1050  INPUT  "MORE  TO  COME.  DEPRESS  EXEC  TO  C ONTirUF" , 0 : GOTO  1 

040 

1060  %ELINT   MC   NATO  NAME   FC    NTDS       COMMENTS 

1070  %ELINT  MC   RFLO   RFHI  PRFLO  PPFHI  PWLO  PWFI  MT  SCTYP   S 

PL   SPU 

1080  INPUT  "DO  YOU  WANT  A  HARD  COPY(Y  OR  N)",C$ 

1090  IF  C$="N"THEN  1110 

1100  SELECT  PRINT  215:GOTO  920 

1110  SELECT  PRINT  005:PRINT  HEX  (0  3)  :  C$  =  "N"  :  GOSUB  '239(1):VJ,I 

=  0 

1120  PRINT  : PRINT  "DO  YOU  WANT  TO:" 

1130  PRINT  "         l.DO  ANOTHER  MATCH" 

1140  PRINT  "         2. RETURN  TO  'START'  PROGRAM" 

1150  PRINT  "         3. STOP" 

1160  INPUT  E 

1170  ON  E  GOTO  5  30,1190,1210 

1180  PRINT  "INVALID. REENTER":GOTO  1120 

1190  COM  CLEAR  : IF  D1=1THEN  1200: INPUT  "INSTALL  PGMS  DISK  IN 

DRIVE  #1,  DEPRESS  EXEC  TO  CONT INUE " , D : LO AD  DC  F"START" 
1200  LOAD  DC  F"START" 
1210  STOP 

1220  DEFFN'50  (U$) 

1230  FOR  I  =  1T0  3:IF  STR(U$ , I , 1 )  [ ] HEX (30) THEN  1240 : STR  (U$ , 1 , 1 
)=HEX(20) :NEXT  I 
1240  RETURN 
1250  DEFFN'51  (W$) 

1260  IF  STR(W$ ,1,1)  [ ]HEX(30)THEN  1 2 70 : STR (WS , 1 , 1 ) =HEX  (  20 ) 
1270  RETURN 
1280  DEFFN'52  (V$) 

1290  FOR  I  =  1T0  3:IF  STR (V$ , I , 1 )  [ ]HEX ( 30) TFFN  1 300 : STR  (V$ , 1 , 1 
)=HEX(20) :NEXT  I 
1300  RETURN 

2pO(0$(l),0$C2),Q3,04,05$,05) 

Q5$;TAB(63)  :PRIN 
o5=2THFN  1330:P 

NT  "-"; :NEXT  08 
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1330  PRINT  TAB(63) :PRINT  HEX (010A0A0909 ) ; : Q8=0 :  INIT(20)O6$: 

Q7$="0":Q6=0 

13A0  Q9$  =  "  ":KEYIN  Q9$  ,  1350  , 1 3^ 0 : GOTO  13A0 

1350  IF  09$=HEX(0D)THEN  1400:IF  Q9 $=HEX (0 8 ) THEN  1430:IF  09$= 

HEX(E5)THEN  1320:PRINT  Q9$;:IF  Q5=2THEN  1470:ON  VAL(Q9$)-42 

GOTO  1370,1360,1370,1380 

1360  IF  Q9$ [HEX(30)THEN  1420:IF  Q9$ ]HEX (39 ) THEN  1420:GOTO  13 

90 

1370  IF  Q8[]0THEN  1420 : Q6=l : GOTO  1390 

1380  IF  POS(Q6$  =  ".")=0THEN  1390:IF  POS  (Q6$  =  " . ")  [ ] Q8+1THEN  14 

20 

1390  Q8=Q8+1:STR(Q6$,Q8,1)=Q9$ :GOTO  1340 

1400  PRINT  HEX(070D0A) :PRINT  TAB(63):IF  05=2THEN  1480:IF  08= 

OTHEN  1420:IF  Q3]13THEN  1420:IF  Q81Q3+Q4THEN  14 20 : Q7=P0S (06$ 

="."):IF  Q7=0THEN  1410:IF  Q 7 ] Q3+Q6+1THEN  1420:IF  08-Q7]Q4THE 

N  1420 

1410  CONVERT  STR (06$ , 1 , 08) TO  Q9:C0NVERT  0$(1)T0  06:C0NVERT  0 

$(2)T0  07:IF  09[06THEN  i420:IF  09[=07THEN  1490 

1420  PRINT  HEX(07) rPRINT  HEX (0 lOAOAOA) ;" INVALID .  RF-ENTER":G 

OTO  1320 

1430  08  =  08-l:IF  O8[0THEN  14 20 : STR (06  $ , 08+1 , 1 )  =  "  ":IF  08  =  Q3TH 

EN  1460:IF  08 [ =03+Q4THEN  1450 

1440  PRINT  HEX(082008) ; :GOTO  1340 

1450  PRINT  HEX(082D0?) ; :GOTO  13^0 

1460  IF  nsfUTHEN  1440:PRINT  HEX  (0  S  2F0  ^^  );:  GOTO  1340 

1470  IF  09$ [HEX(20)THEN  1420:IF  09$ ] HEX ( 7F) THEN  1420:0010  13 

90 

1480  IF  08]03THEN  1420:IF  06$ F OS ( 1 ) THEN  1420:IF  06$]Q$(2)THE 

N  1420 

14^0  RETURN 
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MATCH 
(DOES  NOT  INCLUDE  THOSE  USED  BY  KFAM) 

D  INPUT  VARIABLE  TO  CONTINUE  AFTER  REINSERTING  PGM-S  DISK 

E  END  OF  PROGRAM  OPTION  VARIABLE 

G  INPUT  VARIABLE  TO  CONTINUE 

I  INDEX  VARIABLE 

W  MATCHES  MADE  COUNTER 

Dl     COM  VARIABLE  FOR  NUMBER  OF  DISK  DRIVES.   PASSED  FROM 
START  PROGRAM. 

55  VARIABLE  FOR  TYPE  OF  MATCHING 

A$  DATA  LOAD  RECEIVER  ARRAY 

Al$  MATCHES  MADE  ACCUMULATOR 

C$  EITHER  "Y"  OR  "N".   IF  "Y" ,  A  HARD  COPY  IS  DESIRED 

D$  INPUT  VERIFICATION  STRING  FUNCTION 

P$     ELINT  NOTATION  USED  IN  FIND  OLD  ROUTINE  TO  OBTAIN  NAME 
INFORMATION  FOR  PRINTOUT  WITH  MATCHES  MADE  DATA. 

U$     FREQUENCY  INPUT  VARIABLE 

V$     PRF  INPUT  VARIABLE 

W$     PULSE  WIDTH  INPUT  VARIABLE 
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EMITTER  PARAMETER  (LIST) 

10  REM  L  EMIT  DEVELOPED  BY  LT  S . W . SMITH , USN ,  2/12/19, 

20  PRINT  HEX(03):COM  Dl 

30  PRINT  "THIS  PGM  WILL  LIST  THE  PARAMETERS  OF  ANY  EMITTER  S 

ELECTED  BY  THE" ; TAB ( 2 ): "OPERATOR .  SELECTION  IS  BY  ELINT  NOTA 

TION  OR  NATO  NICKNAME/' 

40  IF  D1  =  1THEN  50:PRINT  HEX  (OAOA)  ;  TAB  (  3  )  ;  "=^*ENSURE  THE  FPL  D 

ISK  IS  INSTALLED  IN  DRIVE  NUMBER  TWO**":GOTO  60 

50  PRINT  HEX(OAOA) ;TAB(3) ; "**ENSURE  THE  EPL  DISK  IS  INSTALLE 

D  IN  DRIVE  NUMBER  THREE**" 

60  COM  B$ (4)62,B1$62,A$5,A1$12 

70  GOTO  410 

80RETURN 

90C0M  V7$8,T0$7,V9,V0$(3)2,T1(3);C0MV0$2,V1$8,V2$2,V3$2,V4$ 

2,V6$1:C0M  02$2 , Q3$2 , V5 $  1 , V8$ 1 , T5$ 30 , T7$ 30 : COM  TO , T9 , T2$2 , T4 

$3,T2,V8,Ta,Tl,T8$l,T2$(8)2,T(8) :C0M  T4 , T5 , V6 , V7 , VI 

lOOCOM  0,0$1,T9$2 ,T0$  (4)60 

llOCOM  f6$l,T3$3,Tl$(l)2,T3$(l)3  3,V9$2,Tl$30 

120ADDC(V9$,V0$) :DATA  LOAD  DA  T#T1 , (V9$ , V9$ ) T9 $, T0$ (): RETURN 

13002=99 

1AOV9$  =  T2$:FOR    T3=»T0T0    ISTEP    -ItGOSUB    1  2^  :  T2$  (T  3  )  =T9  $  :  MAT    *^  E 

ARCHTOS () [1, V7] , ]STR(T1$ ,1,T4)T0    T1$()?TEP    T 5 : T=VAL ( STR ( Tl $ ( 

1),2))-T5:IF    T]OTHFN    150:T=V1 

150MAT  COPY  T0$ ()  f T,T5]T0  T 3  $ ()  : V9 $  =  STR CT3 $  ( 1 )  , T4+1 , 2 )  : I^  02 

r99THEN  180 

160T(T3)=T:NEXT  T3:T7<5  =  T1$:V=2:IF  STR(Tl$,l,T4)=STFrT3$(l),l 

,T4)THEN  170:V=3 

170RETURN 

180MAT  COPY  T0$()fVl,l]T0  T1$():IF  Tl $ T 1 ) =HEX (FF ) THIN  190:02 

=02+l:G0T0  160 

190O2=0:GOTO  160 

2  00T4=VAL(STR(V1$,5) ) : T5=T4+3 : V6=VAL (STR ( Vl$ , 6 ) ) ;V7=T5*V6:V1 

=V7-T5+1:RETURN 

2100$="  ":IF  T6[1THEN  390:IF  T6=T9THEN  80 

220GOTO  390 

230DATA  SAVE  DA  T$ #T1 ,  (V0$ , V9 $ ) 02$ , Q3$ , V5$ , V 8  $ , V0$ , Vl$  ,  V2 $  ,  V 

3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2$(),T(),T3$:RETURN 

240DATA  LOAD  DA  T?;T1  (T9  )  ,  (  VO  $  (T9  )  ,  V9$  )  02$  ,  03$  ,  V5  $  ,  V8  $  ,  V0$  ,  VI 

$,V2$,V3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2$(),T()  ,T8$:RETU 

RN 

250T6  =  VAL(T4$)*256+VAL(STR(T4$  ,2)  )  rDBACKSPACE    //T2,BEG     :  IF    T6 

=0THEN    260:DSKIP    #T2,T6S 

2  600=VAL(STR(T4$,3) ) ;Q$,T8$="  ": RETURN 

270bEFFN'232 (T6,T7,T1$) :GOSUB  210:IF  Q$]"  "THEN  80:G0SUB  130 

:T4$=STR(T3$(1) ,T4+1,3) :T8$="2";IF  V[]2THEN  370:IF  T4$]HEX(F 

F)THEN  370:GOSUB  250:RETURN 

280DEFFN'230(T6,T7,02 ,Q3,V7$) :IF  T6[1TFEN  380:IF  T6 pTHEN  38 

0:IF  V9]0THEN  320 : INIT (FF ) V0$ f ) : INIT r 00 ) T0$ 

290IF  STR(T0$ ,T7  +  1, 1)  ]HEX(00)THEN  380:IF  S TR ( TO  $ , 02  +  1 , 1 ) ] HEX 

(OO)THEN  380:IF  02=T7THEN  380 

300DATA  LOAD  DC  OPEN  T  ^'02  ,  V7  $  :  STR  (V7$  ,  5  ,  1 )  =  "K"  :  CONVFPT  Q3T0 

STR(V7J5  ,6,1)  ,  (#)  :  LIMITS  T"T7,V7$  ,  T  ,  V  ,  T3  :  V=  INT  (T/ 2  5  6  )  :EIN(VO$ 

)=V:BIN(STR(V0$,2))=T-256*V:T9  =  T6:V0$  ('T9)=V0$  :Tl(T9)=T7:n0SU 

B  240:GOSUB  200  :  V0$=V0$  (T«> )  :  T1  =  T7  :  T2  =  02 

310STR(T0$  T7+1,1)=HEX(01) : STR (T0$ , Q2+1 , ] )=HEXC01) :V9=V9+1:0 

$  =  "  ":T8$  =  ^'0":  RETURN 

320IF  V0$ (T6) [HEX(FF)THEN  3S0:IF  T9=0THEN  2^0:G0SUB  23C:T9=n 

:GOTO  290 

330DEFFN'239(T6)  :  IF  T9  =  0THEN  340:G0SUB  2'^0:T9='^ 

340IF  V9=0THEN  380: IF  V0$ (T6 )] HEX (^F) THEN  3 " 0 : T9=T6 : GOSUB  24 

0 

3  50T9=0:INIT(FF)V0$ (T6) :STR(TO$ ,T1+1,1) ,STR(TO$ ,T2+1,1)=HEX( 
00) :V9=V9-1:Q$="  ":RETURN 
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360T8$="N" 

3700$="N":RETURN 

380T8$="X" 

390Q$="X":RETURN 

400%# 

410  PRINT  HEX(OA) ;TAB(3) ;"D0  YOU  WISH  TO  SEARCH  VIA  NATO  NIC 

KNAME  OR  ELINT  NOTATION" 

420  PRINT  TAB(15) ;"1. ELINT" 

430  PRINT  TAB(15) ;"2.NAME" 

440  INPUT  D 

450  IF  D[3THEN  460:PRINT  " INVALID . REENTER" : GOTO  410 

460  IF  Dl-ITHEN  470:SELECT  /^BIO , #2B10 : GOTO  480 

470  SELECT  // 1350  , /' 2  350 

480  COSUB  '230(1,1, 2, D,"EPL1F1") 

490  IF  D=2THEN  770: INPUT  "EMITTER  ELINT  NOTATION  IS", A? 

500  GOSUB  '232(1, 0,A$) 

510  IF  0$[]"  "THEN  750 

520  DATA  LOAD  DC  ^^2,B$() 

530  PRINT  HEX(03) tPRINTUSING  730:PRINT  B $ (n ) : PR IMTUS INC  740 

540  B1$=B$(0):IF  0=4THEN  590 

550  FOR  K=0  TO  4: IF  BS (K)=Bl$TnEN  5«0:PRiyT  B$(K):IF  STR(BS( 

K)  ,6,1)  =  "-"THEN  600:1=1+1 

560  IF  I=8THEN  570:IF  I=18THEN  570:IF  I=2^TKEN  570:IF  I=3PTH 

EN  570:GOTO  580 

570  IF  B2$="Y"TREN  580: INPUT  "MORE  TO  SEE.  DEPRESS  EXEC  TO  C 

ONTINUE",D 

580  NEXT  K 

590  DATA  LOAD  DC  #2  , B$  (  )  : Q=l : GOTO  550 

600  IF  B2$="Y"THEN  630 

610  INPUT  "DO  YOU  WANT  A  HARD  COPY(Y  OR  N)",B2$ 

620  IF  B2$="N"THEN  640:SELECT  PRINT  215:IF  D=2THEN  730:GCTO 

500 

630  SELECT  PRINT  005:B2$="N" 

640  1=0 

650  PRINT  HEX(0A);"DO  YOU  WISH  TO:" 

660  PRINT  "      1. SEARCH  FOR  ANOTHER  EMITTER" 

670  PRINT  "      2. STOP" 

680  PRINT  "       3. RETURN  TO  ' START ' PROGRAM" 

690  INPUT  G 

700  GOSUB  '239(l):ON  G  GOTO  800,760,720 

710  PRINT  "INVALID. REENTER" :GOTO  650 

720  COM  CLEAR  :LOAD  DC  F"START" 

730  %ELINT  MC  NATO  NAME     EC   NTDS     COMMENTS 

740  %ELINT  MC   RFLO   RFHI  PRFLO  PRFHI  PWLO  PWHI  MT  SCTYP   SP 

L  SPU 

750  SELECT  PRINT  005:PRINT  HEX (OAOA) ; TAB (10 ) ; "CPECK  ENTRY.  I 

F  IT'S  CORRECT, THEN  THE  EMITTER ": PRINT  TAB(15);"IS  NOT  LOCAT 

ED  IN  THE  DATA  FILE.":PRINT  HEX (OAOA) : GOTO  640 

760  STOP 

770  INPUT  "EMITTER  NAME  IS",A1$ 

780  GOSUB  '232  (1,0, Al$^ 

790  GOTO  510 

800  PRINT  HEX(03):G0T0  410 
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GOSUB'  232 
FIND  OLD  (AS) 


GOSUB'  232 
FIND  OLD  (AIS) 
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/Headings    & 
\    llS(O) 


'RINT 
"EMITTER 
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(  3    )  U"""   J  (      TERMINATE   J 
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EMITTER  PARAMETER  (LIST) 
(DOES  NOT  INCLUDE  THOSE  USED  BY  KFAI4) 

D      SEARCH  VIA  ELINT  NOTATION  OR  NATO  NICKNAME  VARIABLE 

G      DESIRES  AT  END  OF  PROGRAM  VARIABLE 

I      INDEX  VARIABLE 

Dl     COM  VARIABLE  FOR  NUMBER  OF  DISK  DRIVES.   PASSED  FROM 
START  PROGRAM 

A$  ELINT  NOTATION  INPUT  VARIABLE 

Al$  EMITTER  NICKNAME  VARIABLE 

B$  DATA  LOAD  RECEIVER  ARRAY 

Bl$  EMITTER  PARAMETER  INFORMATION  ARRAY 

B2$  EITHER  "Y"  OR  "N" .   IF  "Y'\  A  HARD  COPY  IS  DESIRED. 
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EXCAP  EA-6B  LIST  MANAGEMENT 

10  REM  DEVELOPED  BY  LT  S  .  W  .  SMITH  ,  USN  ,  1  /  12 /l  "^ 

20  PRINT  HEX(03) 

30  PRINT  "   THIS  PGM  WILL  ASSIST  THF  EWO  IN  MANAGING  THE  EXC 

AP  SQUADRON'S":PRINT  TAB(20);"AC0  AND  CCI  ASSIGNMENT  LISTS" 

40  DIM  0$  (2)64,05$64,07$1 

50  DIM  L$ (49)58, A$5 

60  PRINT  HEX(OAOAOA) 

70  PRINT  TAB(IO) ; "WHICH  LIST  SET  DO  YOU  WANT  TO  WORK  WITH" 

80  PRINT  TAB(27) ;"1.WAS":PRINT  TAB (2 7 ); "2 . LAND ": PRINT  TAB(27 

)  ;"3.ASMD":INPUT  G 

90  ON  G  GOTO  150,130,110 

100  PRINT  "INVALID. REENTER":GOTO  70 

110  DATA  LOAD  DC  OPEN  F  "AL ISTS " :  DATA  LOAD  DC  L$():FEM  *'^** 

IF  ERR  SO  OCCURS,  ENTER  RUN  1220***=^* 

120  GOTO  160 

130  DATA  LOAD  DC  OPEN  F  "LLI STS" : DATA  LOAD  DC  L$():PEM  ***** 

IF  ERR  80  OCCURS,  ENTER  RUN  1220***** 
140  GOTO  160 
150  DATA  LOAD  DC  OPEN  F  "WL  ISTS ":  DATA  LOAD  DC  L$0:PEM  ***** 

IF  ERR  80  OCCURS,  ENTER  RUN  1220***** 
160  INPUT  "DO  YOU  DESIRE  A  LISTING  OF  THE  PPESENT  LISTS(Y  OF 

N)",D$ 
170  IF  D$="N"THEN  260 
180  GOSUB  •100(LS,"N",1,G) 

190  INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THF  LISTS  (Y  OR  N)",P$ 
200  IF  D$  =  "N"THEN  260:  IF  D?5  =  "Y"THEN  220 
210  PRINT  "INVALID. REENTER":GOTO  190 
220  INPUT  "HOW  MANY  COPIES  ",C 
230  SELECT  PRINT  215 
2^0  GOSUB  '100  (L$,D$,C,G) 
250  SELECT  PRINT  005 

260  PRINT  HEX(030A0A0A) :PPINT  "DO  YOU  WANT  TO  :" 
270  PRINT  TAB(7)  ; "1 .ENTER  ALL  NEW  LISTS":FRINT  TAB  (  7 ) ; "2 . CHA 
NGE  SOME  OF  THE  LISTS":PRINT  TA B ( 7 ) ; " 3 . CH ANGE  SELECTED  FaraM 
ETERS  IN  A  SELECTED  LIST" 

280  PRINT  TAB (7) ; "4 .SAVE  WHAT  YOU  HAVE  DONF":FFINT  TAE(7);"5 
.LIST  THE  LISTS":PRINT  TAB ( 7 ) ; "6 . STOP" : INPUT  A 
290  IF  A[6THEN  300:PRINT  " INVAL ID . REENTER" : GOTO  260 
300  ON  A  GOTO  3  30,580,610,860,1^0,310 
310  INPUT  "SAVE  ANY  TH ING? ??????? (Y  OR  N)",D$ 
320  IF  D$="Y"THEN  86G:GOTO  940 

330  INPUT  "NUMBER  OF  LISTS  TO  BE  ENTERED  ([=40)",  p. 
340  IF  B[41THEN  350:PRINT  " INVALID . REENTER" : GOTO  330 
350  INIT("  ")L$() 
360  FOR  1=1  TO  B 
370  IF  I[=30  THEN  390 
380  1=1+10 

3  90  CONVERT  I  TO  M$,  (//#) 
400  STR(L$ (I) ,1,2)=M$ 

410  GOSUB  '200(^*55", "10500", 6,0, "ENTER  FREO  L  0"  ,  1  ,M$  )  :  CONVER 
T  09  TO  A$,  (##//##)  :G0SUB  '  50  (  A$  )  :  STR  (L$  ( I)  ,  4  ,  5  )  =A$  :  IF  A=3  TH 
EN  630 

420GOSUB  •200("55", "10500", 6,0, "ENTER  FREO  H I ", 1 , MS ): CONVERT 
09  TO  A$,  (#/^###)  :GOSUB  '  50  (A$  )  :  STR  (L$  (  I)  ,  10  ,  5  )  =A$  :  IF  A=3TFEN 
630 

430GOSUB  '200("40", "9999", 5,0, "ENTER  PRE  1  LO ", 1 ,M$ ): CONVERT 
09  TO  A$  ,  (/^//'^yO  :  GOSUB  •  50  (A$  )  :  STR  (L$  (  I )  ,  1  6  ,  ^  )  =A$  :  IF  A=3TFEr 
630 

440GOSUB  '200  ("40",  "9°'^*^"  ,5  ,0  ,  "ENTER  PRF  1  HI"  l,Mn:GONVEFT 
09  TO  AS,  (i?f^##)  ;G0SU3  '  50  ( A$  )  :  STR  (L$  (  T  )  ,  2  1 ,  4)  =A$  :  IF  A  =  3THEN 
630 

^50G0SUB  '200  r"0000",  ••9QQo"^  5  ^0,"ENTFF  PP^  2  LO"  ,  1  ,  MS  ^  :  CCNVE 
RT  09  TO  A$  ,(####) :G0SUB  ' 50  ( A$ )  : STR  (L$ ( I )  , 2 6 , 4 ) =A$ : IF  A=3TH 
EN  6  30 
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A60GOSUB  '200("0000", "9999", 5,0, "ENTER  PRE  2  HI" , 1 , M$ ) : CONVE 

RT  09  TO  A$, (####) ;GOSUB  ' 50 (A$ ) : STR (L$ (I ) , 31 , 4) =A^ : IF  A=3TH 

EN  630 

4  7  0GOSUB  '2  00  ("00000" , "99999"  ,  6 , 0 , "ENTER  LTIFN",1,M$)  : CONVER 

T  09T0  A$,  (#####)  :STR(L:?  (I)  ,36, 5)=A$:IF  a  =  3THEN  630 

4 8000  SUB  *  200  ("00000", "99 9 99 ",6,0, "ENTER  SPRI",1,M$)  : CONVERT 

Q9  TO  A$,  (#####) :STR(L^  (I)  ,42, 5)=A$ :IF  A=3THEN  630 

4  90GOSUB  •200(" 00000", "9 9 959 ",6,0, "ENTER  TBKSF",1,M$) tCONVEP 
T  Q9T0  A$, (#####)  :STR(L$  (I) ,48,5)=A$: IF  A  =  3THEN  630 

5  00GOSUB  *  2 00  ("00000", "1109 9 ",6,0, "ENTER  TTMB",1,M$)  : CONVERT 
Q9  TO  A$ ,(#####) :STR(L$(I) ,54, 5)=A$: IF  A=3THEN  630 

510  IF  A=2THEN  590 

520  IF  I[=30  THEN  550   :I=I-10 

530  IF  1=39  THEN  570 

540  GOTO  560 

550  IF  1=30  THEN  380 

560  NEXT  I 

570  GOTO  160 

580  INPUT  "WHICH  LIST  DO  YOU  WISH  TO  CHANGF  (1  TO  30,41  TO  4 

9)",I:G0T0  390 

5°0  INPUT  "DO  YOU  WISH  TO  CHANGE  ANOTHER  LIST(Y  OR  N)",D$ 

600  IF  D$="Y"THEN  5^0:GOTO  160 

610  PRINT  HEX  (03)  :  INPUT  "WHICH  LIST  DO  YOU  WISH  TO  ^-^ORK  WITH 

(1  TO  30,41  TO  49)", I 
620  CONVERT  I  TO  M?  ,  (^-' .'' )  :  STR  (L$  (I  )  ,  1 ,  2  )  =MS 
630  PRINTUSING  8  30  :  PRINTUS  ING  840:PRINT  L  :?  (  T  ) 

640  P^INT  "WHICH  PARAMFTF"  DO  YOU  WISH  TO  CF ANCF " : ^^ INT  T/B( 
10);"1.RF  LOW":PRINT  T  A  B  (  10  )  ;  "2  .  RF  HIG!'":PFINT  TAT  (10  )  ;  "3  .  PR 
F  1  LOW" 

650  PRINT  TAB(IO)  ;  "4  .PRE  1  HIGH":PPINT  Ti^  B  ( 10  )  ;  "  5  .  PRF  2  LOW" 
rPRINT  TAB(IO) ; "6 .PRE  2  HIGH":PRINT  TA^ ( 1^ ) ; " 7 . LTIFN" : PRINT 
TAB(IO)  ;  "8.SPRI" 

660  PRINT  TAB (10)  ; "9.TBKSF":PRINT  TAB  ( 10 )  ; "10 , TTMB " : PRINT  TA 
B(10);"11.NO  OTHERS" : INPUT  D2 

670  ON  D2  GOTO  410,420,430,440,450,460,470,480,490,500,260 
680  DEFFN'100(L$ ,D$ ,C ,G) 
690  PRINT  HEX(03) 
700  ON  G  GOTO  720,730 
710  PRINT  "ASMD  LISTS":GOTO  750 
720  PRINT  "WAS  LISTS":GOTO  750 
730  PRINT  "LAND  LISTS" 
740  PRINT  HEX(03) 
750  FOR  J=1T0  C 

760  PRINTUSING  S 30 : PRINTUS ING  840 

770  FOR  H=l  TO  49:PRINT  L3(H):IF  D$="Y"TKEN  810 
780  IF  H=10  THEN  800:IF  H=20TKEN  800:IF  H=30THEN  800 
790  GOTO  820 

800  PRINT  "TO  CONTINUE  DEPRESS  EXEC": INPUT  D 

810  IF  D$="N"THEN  820:IF  H[]25THEN  820:PRINT  HEX (OAOAOAOA) : P 
RINTUSING  830:PRINTUSING  840 
820  NEXT  HrPRINT  HEX(OG):NEXT  J 

830  %LN  FREO  FREQ  PRE  PRE  PRF  PRE  LTIFN  SPFI  TBKSF  TT 
MB 

840  %    LO     HI     1  LO  1  HI  2  LO  2  HI 
850  RETURN 

8  60  ON  G  GOTO  «9 0,910 

870  SCRATCH  ?  "ALISTS"  :DATA  SAVE  DC  OPEN  F  " AL I S TS "  ,  "AL IS 
T?" 

880  DATA  SAVE  DC  LS()     :GOTO  930 
890  SCRATCH  F  "WLISTS"   : DATA  SA"E  DC  OPEN  F  "WL ISTS " ."UL 1ST 

900  DATA  SAVE  DC  L$()     :G0T0  9'^0 
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910  SCRATCH  F  "LLISTS" : DATA  SAVE  DC  OPEN  F "LLIST? " , "LL ISTS " 

920  DATA  SAVE  DC  L$ () 

930  DATA  SAVE  DC  END  :DATA  SAVE  DC  CLOSE 

940  PRINT  HEX(030A0A0A0A) : PRINT  "DO  YOU  WANT  TO:": PRINT  TAB ( 

7)  ; "1.ST0P":PRINT  TAB (7 ); "2 . RETURN  TO  'START'  PROGRAM" : PRINT 

TAB(7) ; "3. RETURN  TO  THE  BEGINNING  OF  THIS  P ROGRAM" : INPUT  E 

950  ON  E  GOTO  980,970,990 

960  PRINT  "INVALID. REENTER":GOTO  940 

970  LOAD  DC  F  "START" 

980  STOP 

990  PRINT  HEX(030A0A0A) :GOTO  60 

1000  DEFFN'2  00(Q$  (1),Q$(2),Q3,04,Q5$,Q5,M$) 

1010  SELECT  PRINT  005  (64  ):  PRINT  HEX  (0  3  )  ;  "L  IS  T  //  =  ";M$:rRINT  H 

EX(OIOA) ;Q5$;TAB(63) :PRINT  "?";:FOR  Q3=1T0  03:PRINT  "-";:  NE 

XT  08:  IF  Q5=2THEN  1020:PRINT  "/"; :IF  O4=0THEN  1020:FOR  08=1 

TO  04:PRINT  "-";:NEXT  Q8 

1020  PRINT  TAB(63) :PRINT  HEX (010A0A0909 );: 08=0 :  INIT(20)06$: 

07$="0":06=0 

1030  09$  =  "  ":KEYIN  09  $,  1040  ,  in  30  :  GOTO  103^^ 

1040  IF  O9$=HEX(0D)THEN  1090:IF  09 $=HEX (0 P) THEN  1120:IF  ^9$= 

HEX(E5)THEN  1010:PRINT  09$;:IF  Q5=2THFN  1160:0N  VAL''09$)-A2 

GOTO  1060,1050,106^,1070 

1050  IF  09S  [HEX(30)THEN  1110:IF  0  9$  ]  HFX  O '^)  THEN  111^:GCT0  1^^ 

80 

1060  IF  03[10THEN  11 1  n  :  06  =  1 :  GOTO  l^'^O 

1070  IF  POS(O6$  =  ".")=0THEN  10?0:IF  POS  (06$  =  " . " )  [ ] 08  +  1TFEN  11 

in 

1080    08=08+1: STR(06$ ,08, 1)=09$ rGOTf    1^?^ 

1090    PRINT    HEX(nDdA)  :?RINT    TAR(6^):IF    05  =  2THEN    117''^:IF    08  =  OT 

HEN    1110:IF    0'']13THEN    111G:IF    08]O3+Q4THEN    1  lin  :  0  7  =  P0  S  (0  6$  =  " 

."):TF    07=0THEN    1100:IF    0 7 ] 03+d6+iTHEN    1110:IF    08-07]Q4THEN 

1110 

1100    CONVERT    STR(Q6$ , 1 ,Q8)T0    09:C0NVERT    0$ri)T0    Q6:C0NVERT    0 

$(2)T0    07:IF    Q9[06THEN    1110:IF    09[=Q7THEN    1130 

1110    PRINT    HEX  (07)  : PRINT    HEX (OlOAOAOA)  ;" INVALID .     RE-ENTER" :G 

OTO    1010 

1120  Q3=Q8-1:IF  Q8[0THEN  1110 : STR (Q 6$ , Q8+1 , 1 ) = "  " : IF  08=Q3TH 

EN  1150:IF  0 8 [ =03+Q4THEN  1140 

1130  PRINT  HEX(032003) ; :G0T0  1030 

1140  PRINT  HEX(082D08) ; :G0T0  1030 

1150  IF  05[]1THEN  1130:PRINT  HEX (082F08 );: GOTO  1030 

1160  IF  Q9$ [HEX(20)THEN  1110:IF  Q9$ ]HEX ( 7F) THEN  1110:GOTO  10 

80 

1170    IF    Q8]03THEN    1110:IF    Q6$ [ Q$ (1) THEN    1110:IF    06$]0$(2)THE 

N    1110 

1180    RETURN 

1190    DEFFN'50(A$) 

1200    FOR    J  =  1T0     3:TF    S TR ( A$ , J , 1 )  [ ] "0"    THEN    1 2 10 : S TF (AS , J ,  1 )  =" 

":NEXT    J 
1210    RETURN 
1220    INIT("    ")L$() 

1230  DATA  SAVE  DC  OPEN  F 1 5 , "WL ISTS " : DATA  SAVE  DC  L$() 
1240  DATA  SAVE  DC  OPEN  F 1 5 , "AL ISTS" : D ATA  SAVE  DC  LS(> 
1250  DATA  SAVE  DC  O^'EN  i^l  5  ,  "LL  ISTS"  :  DATA  S^VF  DC  L$C) 
1260    GOTO    70 
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EXCAP  EA-6B  MANAGEMENT 
(DOES  NOT  INCLUDE  THOSE  USED  BY  DEFFN'200) 

A      OPERATOR  OPTION  VARIABLE  FOR  CHANGING  LIST  PARAMETERS/ 
SAVING  NEW  LISTS/STOP 

B  NUMBER  OF  LISTS  TO  BE  ENTERED 

C  NUMBER  OF  HARD  COPIES  TO  BE  MADE 

E  END  OF  PROGRAM  OPTION 

G  WHICH  SET  OF  LISTS  ARE  TO  BE  WORKED  WITH 

H      INDEX  VARIABLE  TO  STEP  THROUGH  LISTS  DURING  PRINT 
ROUTINE 

I      INDEX  VARIABLE  TO  STEP  THROUGH  LISTS  DURING  PARAMETER 
INPUT/LIST  NUMBER  TO  BE  CHANGED 

J      INDEX  VARIABLE  FOR  HARDCOPY  PRINTOUT 

D2     PARAMETER  TO  BE  CHAIsIGED  IN  LIST  I 

A$     DEFIN'50  PASSING  VARIABLE.   PARAMETER  INPUT  RECEIVER 
VARIABLE . 

D$     INPUT  VARIABLE  FOR  YES/NO  QUESTIONS 

L$     DATA  LOAD  RECEIVING  VARIABLE 

M$     LIST  NUMBER  AFTER  CONVERSION  TO  ALPHANUMERIC  VARIABLE 
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I CAP  EA-6B  LIST  MANAGEMENT 

10  REM  DEVELOPED  BY  LT  S  .  W.  SMITH  ,  USN,  1/12  11') 

20  PRINT  HEX(03) 

30  PRINT  "   THIS  PGM  WILL  ASSIST  THE  EWO  IN  MANAGING  THE  ICA 

P  SOUADRON'S":PRINT  TABC17);"AC0  AND  PA  ASSIGNMENT  LISTS" 

40  DIM  0$  (2)64,05$64,07$1 

50  DIM  L$  (50)64, A$8 

60  PRINT  HEX(OAOAOA) 

70  PRINT  TAB(IO) ; "WHICH  LIST  SET  DO  YOU  WANT  TO  WORK  WITH" 

80  PRINT  TAB(27) ; "l.WAS":PRINT  TAB (2 7 ); "2 . LAND ": PRINT  TAB(27 

)  ;"3.ASMD" 

90  INPUT  G:0N  G  GOTO  150,130,110 

100  PRINT  "INVALID. REENTER":G0T0  70 

110  DATA  LOAD  DC  OPEN  F  "ALI STS " : DATA  LOAD  DC  L$():REM  **** 

IF  ERR  80  OCCURS,  ENTER  RUN  1190*''=''^^-* 

120  GOTO  160 

130  DATA  LOAD  DC  OPEN  F  "LLISTS " :  DATA  LOAD  DC  L$():REM  ^'^^a* 

IF  ERR  80  OCCURS,  ENTER  RUN  1190*'^**- 
140  GOTO  160 
150  DATA  LOAD  DC  OPEN  F  "WL ISTS " :  DATA  LOAD  DC  L$():REM  a***>v 

IF  ERR  80  OCCURS,  ENTER  RUN  1190***^* 
160  INPUT  "DO  YOU  DESIRE  A  LISTING  OF  THE  PRESENT  LISTS(Y  OR 

N)",D$ 
170  IF  D$="N"THEN  260 
180  GOSUB  '100(L$ ,"N",1,G) 
190  INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  LISTS (Y  OR  N)  ",D$ 

200  IF  D$="N"THEN  260:IF  D$="Y"THFN  220 

210  PRINT  "INVALID. REENTER": GOTO  190 

220  INPUT  "HOW  MANY  COPIES  ",C 

230  SELECT  PRINT  215 

240  GOSUB  '100  (LS,D$,C,G) 

250  SELECT  PRINT  005 

260  PRINT  HEX(030AOA0A) :PRINT  "DO  YOU  WANT  TO  :" 

270  PRINT  TAB(7) ; "1. ENTER  ALL  NEW  LISTS":PRINT  T AB C 7 ) ; "2 . CHA 

NGE  SOME  OF  THE  LISTS":PRINT  TAB ( 7 ) ; " 3 . CHANGE  SELECTED  PARAM 

ETERS  IN  A  SELECTED  LIST" 

280  PRINT  TAB(7) ; "4 .SAVE  WHAT  YOU  HAVE  DONE":PRINT  TAB(7);"5 

.LIST  THE  LISTS":PRINT  TAB ( 7 ) ; "6 . S TOP " : INPUT  A 

290  IF  A[7THEN  300:PRINT  " INVALID . REENTER" : GOTO  260 

300  ON  A  GOTO  3  30,550,580,830,180,310 

310  INPUT  "SAVE  ANY  THING? ??????? (Y  OR  N)",D$ 

320  IF  D$="Y"THEN  830:GOTO  910 

330  INPUT  "NUMBER  OF  LISTS  TO  BE  ENTERED  ([=50)",E 

340  IF  B[41THEN  350:PRINT  " INVALID . REENTER" : GOTO  330 

350  INIT("  ")L$() 

360  FOR  1=1  TO  B 

3  70  CONVERT  I  TO  M$,  {^hf) 

380  STR(L$ (I) ,1,2)=M$ 

390  GOSUB  '200("001", "110", 4,0, "ENTER  FTP" , 2 ,M$ )  : S TR (L$  (  I )  ,  4 

,3)=Q6$:IF  A=3  THEN  600 

400  GOSUB  '200("55", "10500", 6,0, "ENTER  FREQ  LO " , 1 , M$ ) : CONVER 

T  Q9  TO  A$,  (###??-;?)  :G0SUB  '  50  ( A$  )  :  STR  (L$  ( I )  ,  8  ,  5  )  =A$  :  IF  A=3  TH 

EN  600 

410GOSUB  '200("55", "10500", 6,0, "ENTER  FREO  H  I  "  ,  1  ,M$  )  :  CON^^FRT 

09  TO  A$,  (#####)  :G0SUB  '  50  (A$  )  :  STR  (L$  (I )  ,  14  ,  5  )  =A$  :  IF  i»  =  3THEN 

600 

420GOSUB  '200("   40" , "999 9 " , 5 , 0 , "ENTER  PRF  1  LO " , 2 , M$ ) : STR (L 

$  (I) , 20,4)=A$ :IF  A=3THEN  600 

43CG0SUB  '200("    40"  ,  "S999 9"  ,  6  ,  0 , "ENTER  PPF  1  H I " , 2 , M$ )  : STR 

(L$(I)     24.5)=06$:IF    A=3THEN    600 

440G0SUB    ^200("       40"  ,  "Q  9  "^  ^  "  ,  5  ,  0  ,  "ENTER    PRF    2    LO  "  ,  2  ,  M.^  )  :  STR  (L 

Sri),29,4)=A$:IF    A  =  3THEN    60^''  ,     ,        --  v 
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A50GOSUB  '200C"    AO" , "39999 ", 6 , 0 , "ENTER  PRE  2  HI" , 2 ,M$ ) : STR 

(L$ a) ,33,5)=06$ :IF  A=3THEN  600 

A60COSUB  ♦200("00000"»00", "76543210", 9,0, "ENTER  SITE",1,M$)  :C 

ONVERT  09T0  A$  ,  (  ^' ^N/f  •'' i"-'^ 'f  #  )  :  STR  (L$  (I  )  ,  30  8  )  =A$  :  IF  A=3THEN  600 

470GOSDB  •200(^*00", "31",  3,0,  "ENTER  SYM^' ,  1  ,  MS  ):  CONVERT  09  TO 

AS,  (##)  :STR(L$  (I)  ,4.9,  2)=A$  ;IF  A=3THEN  600 

480GOSUB  •200("000", "y^O", 4,0, "ENTER  PRI ", 1 ,M$ ): CONVERT  09T0 

A$,  (###) :STR(L$(I)  .51, 3)=A$: IF  A=3THEN  600 

490G0SUB  •200("1",*^5",  2,0,  "ENTER  S  ",  1 ,  M$  ):  CONVERT  Q9  TO  A:?  ,  ( 

/')  :  STR(L$  (I)  ,55,1)=A$  :IF  A=3THEN  600 

500GOSUB  '200("111", "465", 4,0, "ENTER  FT" , 1 , M$ ): CONVERT  09  TO 

A$,  (#////):  STR(L$  (I)  ,57.  3)=A$  :  IF  A=3THEN  600 

510GOSUB  '200("1111", "^9995", 5,0, "ENTER  TBK"  ,  1 ,  MS  )  :C  ONVERT  Q9 

TO  A$,  (##//#)  :STR(L$  (I)  ,61, 4)=A$  :IF  A=3THEN  6UU 
520  IF  A=2THEN  560 
530  NEXT  I 
540  GOTO  160 

550  INPUT  "WHICH  LIST  DO  YOU  WISH  TO  CHANGE  (1  TO  50)",I:GOT 
0  370 

560  INPUT  "DO  YOU  WISH  TO  CHANGE  ANOTHER  LIST(Y  OR  N)",D$ 
570  IF  D$="Y"THEN  550:GOTO  160 
580  PRINT  HEX(03) : INPUT  "WHICH  LIST  DO  YOU  WISH  TO  WORK  WITH 

(1  TO  50)", I 
590  CONVERT  I  TO  M$  ,  (  # '/ )  :  STR  (L$  (  I )  ,  1 ,  2  )  =M$ 
600  PRINTUSING  800 : PRINTUS ING  810:PRINT  L$(I) 

610  PRINT  "WHICH  PARAMETER  DO  YOU  WISH  TO  CHANGE ": PR  INT  TAB( 
10)  ;  "l.FTP";TAB(31)  ;"2  .RF  LOW":PRINT  TAB  (10)  ;  "3  .  RF  HIGIT";TAB 
(31);"4.PRF  1  LOW" 

620  PRINT  TAB(IO)  ;  "5.PRF  1  HIGH"  ;  TAB  (  3  1 )  ;  "6  .  PP.F  2  LCW":PRINT 
TAB(IO) ;"7.PRF  2  HIGH " ; TAB ( 31 ) ; "8 . S ITE" : PRINT  TAF ( 10 ) ; "9 . SYM 
";TAB(31) ;"10.PRI" 

630  PRINT  TAB(IO)  ;  "ll.S";TABr31)  ;"12.FT":PRINT  TA  ^- (  10  )  ;  "1 1 .  T 
BK";TAB(31) ; "14.N0  OTHERS" : INPUT  D2 

640  ON  D2  GOTO  39O,4O0,410,A2n,43O,4^'0,A5  0,4^0,47O,/L«0,A«O,5 
00,510,260 

650  DEFFN'100(L$,D$,C,G) 
660  PRINT  HEX(03) 
670  ON  G  GOTO  690, 700 
680  PRINT  "ASMD  LISTS":G0T0  720 
690  PRINT  "WAS  LISTS" :G0T0  720 
700  PRINT  "LAND  LISTS" 
710  PRINT  HEX(03) 
720  FOR  J=1T0  C 

730  PRINTUSING  800 : PRINTUS ING  810 

740  FOR  H=l  TO  50:PRINT  L$(H):IF  DS="Y"THEN  7S0 
750  IF  H=10  THEN  770:IF  H=20THEN  770:IF  H=30THEN  770:IF  H=40 
THEN  770 
760  GOTO  790 

770  PRINT  "TO  CONTINUE  DEPRESS  EXEC": INPUT  D 

780  IF  D$="N"THEN  790:IF  H[]25THEN  790:PRINT  H EX (OAOAOAOAOA) 
rPRINTUSING  SOO : PRINTUS ING  810 
790  NEXT  H;PRINT  HEX(OC):  NEXT  J 
800  %LN  FTP  FREQ   FREO   PRE  PRE   PRE  PRF       SITE    SM  PRI  S 

FT   TBK 
810  %        LO     HI     ILO  1  HI  2L0  2  HI 
820  RETURN 

830  ON  G  GOTO  860,880 

840  SCRATCH  F  "ALISTS"  :DATA  SAVE  DC  OPEN  F  "AL I STS " , "AL IS 
TS" 

850  DATA  SAVE  DC  L $ f )     :GOT0  900 

860  SCRATCH  F  "WLISTS"   :  DATA  SAVE  DC  OPEN  F  "  WL  I S  t'S  "  ,  "WLI  FT 
S" 
870  DATA  SAVE  DC  L$()     : GOTO  900 
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880  SCRATCH  F  "LLISTS" :DATA  SAVE  DC  OPFN  F "LLI ST? " , "LL IS TS " 

890  DATA  SAVE  DC  L$ () 

QQO  DATA  SAVE  DC  END  :DATA  SAVE  DC  CLOSE 

910  PRINT  HEX (030A0A0A0A) : PRINT  "DO  YOU  WANT  TO:":PPTNT  TAB ( 

7)  ; "l.STOP" :PRINT  TAB  (7)  ; "2 . RETUPN  TO  'START'  PPOHRAM" : PRINT 

TAB  (7) ; "3. RETURN  TO  THE  BEGINNING  OF  THIS  P ROGRAM" : INPUT  E 

920  ON  E  GOTO  950,940,960 

930  PRINT  "INVALID. REENTER":GOTO  910 

940  LOAD  DC  F  "START" 

950  STOP 

960  PRINT  HEX(030A0A0A) :GOTO  60 

9  70  DEFFN'2  00(Q$(1)  , Q$  (2 )  ,  Q3 , Q4 , Q5$ , 05 , MS ) 

980  SELECT  PRINT  005  (64  ):  PRINT  HEX  (0  3  )  ;  "L  1ST  '''  =  "  ;M$  :  PRINT  HE 

X(OIOA) ;05$;TAB(63) :PRINT  "?";:FOR  Q8=1T0  03:PRINT  "-";:  NEX 

T  Q8:  IF  Q5=2THEN  990:PRINT  "/";:IF  Q4=0THEN  990:F0R  08=1T0 

Q4:PRINT  "-"; :NEXT  Q8 

990  PRINT  TAB(63) :PRINT  HEX (010A0A0909 ) ; : Q8=0 :  INIT (2 0 ) Q6$ : 0 

7$="0":Q6=0 

1000  09$  =  "  ":KEYIN  Q 9$  ,  1010  ,  1000 : GOTO  1000 

iniO  IF  Q9$=HEX(0D)THEN  1060:IF  Q9 $=HEX (0 ^ ) THEN  1090:IF  09$= 

HEX(E5)THEN  980:PRINT  Q9$;:IF  Q5=2THEN  1130:ON  VAL(09$)-42  G 

OTO  1030,1020,1030,1040 

1020  IF  09$ [HEX(30)THEN  1080:IF  Q9$ ]HEX (3° ) THEN  1080:GOTO  in 

50 

10  3  0  IF  08[]OTHEN  108  0  :  Q6  =  l : GOTO  10  50 

1040  IF  P0S(06J5  =  ".")=0THEN  1050:IF  POS  (06$  = ".")[]  08  +  lTHEN  10 

80 

1050  08=08+l:STR(06$ ,08,1)=09$ :GOTO  1000 

1060  PRINT  HEX(ODOA) :PRINT  TAB(63):IF  05=2THEN  1140:IF  08=0T 

HEN  1080:IF  08J13THEN  lO-^OtlF  08103+04THEN  1080 :  07  =  P0S  r  06  $  =  " 

."):IF  07=OTHEN  1070:IF  0 7 ] 03+06+lTHEN  1090:IF  08-07104THEN 

1080 

1070  CONVERT  S  TR  (06$  ,  1 ,  Q8)  TO  09:C0NVERT  0$fl)T0  06:C0ITVERT  0 

S(2)T0  07:IF  09[n6THEN  10?0:IF  09[=07THEN  1150 

1080  PRINT  HEX(07)  :PRINT  HEX  CO lOAOAOA)  ; "INVALID  .  RE-ENTEP":n 

OTO  9  80 

1090  08=08-l:IF  O8[0THEN  10 8 0 : STR (n6$ , 08+1 , I) = "  ":IF  08=O3TH 

EN  1120:IF  Q 8 [ =03+O4THEN  1111 

1100  PRINT  HEX(082bO^) ; :GOTO  1000 

1110  PRINT  HEX(082D08) ; :GOTO  lOOQ 

1120  IF  05[]1THEN  llOOtPRINT  HEX (0 82F0 8 ) ; : GOTO  1000 

1130  IF  09$ [HEX(20)THEN  lOBOrlF  Q9 $] HEX ( 7F) THEN  1080:GOTO  10 

50 

1140  IF  08]03THEN  1030:IF  Q6 $ [ 0$ (1 ) THEN  1080:IF  Q6$]Q$(2)THE 

N  1080 

1150  RETURN 

1160  DEFFN'50(A$) 

1170  FOR  J  =  1T0  3:IF  STR (A$ , J , 1)  [ ] "0"  THEN  1 1 30  :  STR ( A$ , J , 1 )  =  " 

":NEXT  J 
1180  RETURN 
1190  INIT("  ")L$() 

1200  DATA  SAVE  DC  OPEN  F 30 , "WL ISTS " : DATA  SAVE  DC  LS() 
1210  DATA  SAVE  DC  OPEN  F 30 , " AL I STS " : DATA  SAVE  DC  L$f) 
1220  DATA  SAVE  DC  OPEN  F 30 , "LL ISTS ": DATA  SAVE  DC  L$() 
1230  GOTO  70 
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I CAP  EA-6B  LIST  MANAGEMENT 

(DOES  NOT  INCLUDE  THOSE  USED  BY  DEFFN'200) 

A      OPERATOR  OPTION  VARIABLE  FOR  CHANGING  LIST  PARAMETERS/ 
SAVING  NEW  LISTS/STOP 

B  NUMBER  OF  LISTS  TO  BE  ENTERED 

C  NUMBER  OF  HARD  COPIES  TO  BE  MADE 

E  END  OF  PROGRAM  OPTION 

G  VJHICH  SET  OF  LISTS  ARE  TO  BE  WORKED  WITH 

H      INDEX  VARIABLE  TO  STEP  THROUGH  LISTS  DURING  PRINT 
ROUTINE 

I      INDEX  VARIABLE  TO  STEP  THROUGH  LISTS  DURING  PARAMETER 
INPUT/LIST  NUMBER  TO  BE  CHANGED 

J      INDEX  VARIABLE  FOR  HARDCOPY  PRINTOUT 

D2     PARAMETER  TO  BE  CHANGED  IN  LIST  I 

A$     DEFIN'50  PASSING  VARIABLE.   PARAMETER  INPUT  RECEIVER 
VARIABLE . 

D$     INPUT  VARIABLE  FOR  YES/NO  QUESTIONS 

L$     DATA  LOAD  RECEIVING  VARIABLE 

M$     LIST  NUMBER  I  AFTER  CONVERSION  TO  ALPHANUMERIC  VARIABLE 
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HULTEC 

10  REM  DEVELOPED  BY  LT  S  .W . SMITH , USN  ,  3/12/79 

20  PRINT  HEX(030A0A) :PRINT  TAB ( 15 ); "THIS  PGM  PROVIDES  A  CONV 

lENT  MEANS  0F":PRINT  TAB (15 ); "MAINTAINING  AN  UP  TO  DATE  HULT 

E f  F  TL  F " 

30  DIM  A$(50)64,W$ (50)2, L$ (50)2, B$(50)64,C$(1)10 

40  DATA  LOAD  DC  OPEN  F "DATE" : DATA  LOAD  DC  C$():DATA  LOAD  DC 

OPEN  F"HUL":DATA  LOAD  DC  A$():REM  *****IF  YOU  GET  ERR  80,  EN 

TER  RUN  800***** 

50  PRINT  HEX(OAOAOAOA) ;TAB(10) ; "DO  YOU  WISH  TO  LOOK  AT  THE  E 

NTIRE  FILE  AT  THIS  TIME?  Y  OR  N" 

60  INPUT  D$:IF  D$="N"THEN  130 

70  PRINT  "DATE  OF  DATA  IS    ";C$(1) 

80  PRINTUSING  310 

90  FOR  I=1T0  50:PRINT  A$(I):IF  1=10  THEN  110:IF  1=20  THEN  11 

0:IF  1=30  THEN  110:IF  1=40  THEN  110:IF  1=50  THEN  120 

100  NEXT  I 

110  PRINT  HEX(OAOA) rINPUT  "MORE  TO  SEE.  DEPRESS  EXEC  TO  CONT 

",D:G0T0  100 

120  INPUT  "NO  MORE  TO  SEE.  DEPRESS  EXEC  TO  C0NTI>^UE  PGy",D 

130  PRINT  "DO  YOU  WISH  TO:" 

140  PRINT  TAB (10) ; "1. CHANGE  AN  ENTRY" rPRINT  TAB f 10 ) ; "2 . 03TAI 

N  A  HARD  COPY  OF  THE  CURRENT  FILES":PRINT  TAB ( 10 ) ; " 3 . S AVE  WH 

AT  YOU  HAVE  DONE":PRINT  TAB (10 ); "4 . LIST  THE  FILE?" 

150  PRINT  TAB  (10)  ;  "5.  SEARCH  FOR  A  PARTICULAR  PLATFORM"  :  P^vINT 

TAB (10) ; "6. SEARCH  FOR  A  PARTICULAR  E^^TTER" : PRINT  TAE(10);"7 

.RETURN  TO  THE  'START'  PROGRAM" : PRINT  TAB (10 ) ; " 8 . STOP " 

160  INPUT  E:ON  E  GOTO  1  70  ,  3  20  ,  3  70  , ''O  ,  500  ,  P- A  0  ,  9  40  ,  5"0 

170  INPUT  "WHICH  LINE  DO  YOU  WISH  TO  CHANGE ", B : C ONVERT  BTO  S 

TR(A$(B)  ,63,2)  ,  (/NO 

180  PRINT  "DO  YOU  WISH  TO  CHANGE" : PRINT  TAB ( 10 ) ; "1 . ALL  VALUE 

S": PRINT  TAB(IO) ; "2. SELECTED  VALUES ": INPUT  F 

190  IF  F=2THEN  460 

200  PRINT  HEX(03) 

210  GOSUB  '243("ENTER  RF  ",5):G0SUB  '  50  (06$ )  : STR (A$ (B )  ,  1 ,  5 )  = 

06$:IF  F=2THEN  460 

220  GOSUB  '243("PRF",4)  :G0SUB  '  50  (Q6$  )  :  STR  (A$  (  B)  ,  7  ,  4  )  =06  i? :  IF 

F=2THEN  460 

230  GOSUB  •243("PRI  1",9);G0SUB  ' 50 (Q6 $  )  :  STR (AS ( B)  , 12 , 9 ) =Q6 $ 

:IF  F=2THEN  460 

240  GOSUB  •243("PRI  2",9):G0SUB  '  50 (06$ ) : STR ( A$  (B  )  , 2 2 , 9 ) =Q6$ 

: IF  F=2THEN  460 

250  GOSUB  '243("PW",4)  :G0SUB  ' 50 (06$ )  : STR (A? (B ) , 32 , 4) =Q6$  :  IF 

F=2THEN  460 

260  GOSUB  '243("SCAN  PERIOD" , 4 ): GOSUB  ' 50 (06 $ ) : STP ( A$ (3 )  , 3 7 , 

4)=Q6$:IF  F=2THEN  460 

270  GOSUB  •243("PLATF0RM'S  NAME"  ,  3)  :  STR  ( A$  (  B  )  ,  4  2  ,  ?- )  =Q6  $  :  IF  F 

=2THEN  460 

280  GOSUB  '243("EMITTER'S  NAME" , 6 )  : STR (A$ (3 )  , 5 1 , 6 ) =06  $ : IF  F  = 

2THEN  460 

290  GOSUB  '243("NTDS  KEY  NUMBER" , 4 ): GOSUB  ' 50 ( 06  $  )  : STR rA$ ( B ) 

,58,4)=06$:IF  F=2THEN  460 

300  PRINTUSING  310:PRINT  AS(B):PRINT  HEX ( OAOAOA ): GOTO  130 

310%   RF    PRE    PRI  1       PRI  2    PW    SPD    PLAT    RADAR 

KEY   LN 
320  INPUT  "PRINTER  ON  AND  SELECTED?  DEPRESS  EX^C  TO  CO>'T",D 
330  INPUT  "NUMBER  OF  COPIES", CI 
340  FOR  I=1T0  CI 

350  SELECT  PRINT  2 15 : PRINTUS ING  310:MAT  PRINT  AS: PRINT  HEX(0 
AOAOAOA) :NEXT  I 

360  SELECT  PRINT  005:GOTO  13^ 
370  INPUT  "TODAY'S  DATE  IS",C$(1) 
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380  SCRATCH  F"DATE":DATA  SAVE  DC  OPEN  F "DATE" , "DATE" : DATA  SA 

VE  DC  C$() 

390  SCRATCH  F"HUL":DATA  SAVE  DC  OPEN  F"HUL","HUL" 

400  MAT  SORT  A$()T0  W$(),L$() 

410  MAT  MOVE  A$(),L$(1)T0  B$(l) 

420  FOR  1  =  1  TO  50:C0NVERT  I  TO  1$  ,  (// #  )  :  STR  (  B$  ( I)  ,  6  3  ,  2  )  =  1$  :  NE 

XT  I 

430  MAT  COPY  B$()  TO  A$() 

440  DATA  SAVE  DC  A$ () 

450  GOTO  130 

460  PRINT  HEX(03) :PRINTUSING  310:PRINT  A$(3):  PRINT  "WHICH  V 

ALUE  DO  YOU  WISH  TO  CHANGE?  SELECT  ONE" 

470  PRINT  TAB(IO) ; "l.RF":PRINT  TAB ( 10 ) ; "2 . PRF" : ^R INT  TAB(IO) 

;"3.PRI  1":PRINT  TAB (10) ; "4 . PRI  2":PRINT  TAB (10 ) ; "5 . PW" : PRIN 

T  TAB(IO)  ;"6.SCAN  PERIOD ": PRINT  TAB (10 ); "7 . PLATFORM  '  S  NAME" 

480PRINT  TAB(IO) ;"8. EMITTER'S  NAME":PRINT  TAR ( 10 ) ; "9 . NTDS  KE 

Y  NUMBER": PRINT  TAB  (10)  ; "10 . NO  OTHERS ": INPUT  G 

490  PRINT  HEX(03):  ON  G  GOTO  2 1 0 , 2 20 , 2 30 , 24 ^ , 2 50 , 2 60 , 2 70 , 2 3n 

,290,130 

500  PRINT  HEX(03)  :GOSUB  '24  3  ("INPUT  PLATFORM'S  NA:' E  "  ,  8  )  :  ^RIN 

T  HEXr03) 

510  PRINTUSING  310 

520  FOR  I=1T0  50:IF  STR (A$ (I ) , 42 , S ) [ ] Q6$THEN  54n:PPlNT  A$(I) 

530  C=C+1:B$ (C)=A$ (I) 

540  NEXT  I:  IF  ClOTHEN  5  50:  PRINT  "NO  PLATFOR'^S  VITK  TFAT  NAME 

":FRINT  HEX(OAOAOA) :G0T0  130 

550  PRINT  HEX(OAOA) : INPUT  "HARD  COPY  DESIRED  (Y  OR  N)",D$:IF 

D$="N"THEN  130 

560  INPUT  "HOW  MANY  COPIES ", Cl : SELECT  PRINT  215 

570  FOR  I=1T0  C1:PRINTUSINC  310:FOR  J=1T0  C:  PRINT  B$(J):NEX 

T  J:PRINT  HEX(OAOAOAOA) :NEXT  I 

580  SELECT  PRINT  005:GOTO  130 

590  STOP 

600DEFFN'242(W0,Q6$) :SELECT  PRINT  005:IF  WO[=OTHEN  610:INIT( 

Q6$)Q6$: PRINT  STR(Q6$ , 1 , WO-INT ( (WO-1 ) / 6 3) - 6 3 )  ; : WO  =  WO- (WO- INT 

(  (W0-l)/63)*63) :GOTO  600 

610RETURN 

620DEFFN'243(06$,Q0) :GOSUB  660 

630SELECT  CO  205:Q6$="  ": INPUT  06$ : IF  00=0THEN  700:IF  LEN(06 

$)[=OOTHEN  700:GOSUB  '255 

640DEFFN'244 (QO)  :GOSUB  680:G0SUB  670:GOTO  630 

650DEFFN'255:GOSUB  '  248  (  3  ,  0  , -1 )  : PRINT  HEX (0 7 ); "RE-ENTER" : RET 

URN 

660GOSUB  710:PRINT  HEX  (OlOA)  ; STR (06  $ , 1 )  ; T AB  (  80 ) 

670GOSUB  710:PRINT  HEX (0 lOAOA) ; TAB (80 ) ; HEX (010 AOA) : GOSUB  '24 

2  (00+2, "-") 

680PRINT  HEX(OIOAOA) 

690KEYIN  O6$,690,690:RETURN 

700PRINT  HEX(OA) ;TAB(80) 

710SELECT  PRINT  005, CO  005:RETURN 

720DEFFN'248 (06,07 ,08) :SELECT  PRINT  005:IF  08=0THFN  74n:IF  A 

BS  (08)  [ 19E99THEN  730:PRINT  HEX(03):GOTO  740 

730GOSUB  740:SELECT  PRINT  205:PRINT  TAB ( 7 2-P* SON (08 ) -07 ) : IF 

ABS  (08)  [ 2THEN  740:FOR  W0  =  2TO  ABS (Q8 ) : FRINT  HEX (OA)  ; TAB ( 7 2- «* 

SGN(03) ) :NEXT  WO 

740PRINT  HEX(Ol)  tGOSUB  '  24 2 (07 , HEX  (09 )): GOSUB  ' 24 2 (06 , HEX ( OA 

)):SELECT  PRINT  005:RETURN 

750  INIT("  ")A$() 

760  STOP 

770  DEFFN'50 (06$) 

780  FOR  J=1T0  3:IF  STR (06$ , J , 1) ] "0 "THEN  7 90 : STR (06$ , J , 1 ) = "  " 

:NEXT  J 
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790  RETURN 

800  INIT("  ••)A$  ()  :INIT("  ")C$() 

810  DATA  SAVE  DC  OPEN  F3 , "DATE" : DATA  SAVE  DC  C$() 

820  DATA  SAVE  DC  OPEN  F50 , "HUL" : DATA  SAVE  DC  A$() 

830  GOTO  130 

840  PRINT  HEX(03)  :G0SUB  '243("INPUT  EMITTER'S  NAME" , 6 ): PRINT 

HEX(03) 

850  PRINTUSING  310 

860  FOR  I=1T0  50:IF  STR (A$ ( I) , 5 1 , 6 ) [ ] Q6$THEN  880:PRINT  A$(I) 

870  C=C+1:B$ (C)=A$(I) 

880  NEXT  I:IF  C=OTHEN  930 

890  PRINT  HEX  (OAOA)  :  INPUT  "HAPD  COPY  DESIRED  (Y  OP  NV,DS:IF 

D$="N"THEN  130 

900  INPUT  "HOW  MANY  C OPIES" , CI : SELECT  PRINT  215 

910  FOR  I  =  1T0  ClrPRINTUSINO  3in:F0P  J=1T0  C:  PRINT  B!5(J):NEX 

T  JrPRINT  HEX(OAOAOAOA) :NEXT  I 

920  SELECT  PRINT  005:GOTO  130 

f^30  PRINT  "NO  EMITTFPS  WITH  THAT  NAME":  PRINT  HEX  ( OAOA)  :  ^OTO 

130 

940  LOAD  DC  F"START" 
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0  YOU  WISH 

L.  Change  an 

I.  Hard  copy 

3.  Save  daca 
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HULTEC 

C      COUNTER  FOR  I4ATCHES  MADE  WHEN  SEARCHING  FOR  PARTICULAR 
PLATFORMS  OR  EMITTER. 

D      INPUT  VARIABLE  FOR  DEPRESS  EXEC  TO  CONT. 

E      INPUT  VARIABLE  FOR  OPERATOR'S  SELECTION  OF  WHAT  HE 
WISHES  TO  DO  WITH  DATA.   E=1T08 

F      INPUT  VARIABLE  FOR  SELECTION  OF  WHETHER  ALL  OR  SELECTED 
PARAMETERS  ARE  TO  BE  CHANGED.   F=l  FOR  ALL,  F=2  FOR 
SELECTED. 

G      INPUT  VARIABLE  FOR  SELECTION  OF  WHICH  PARAMETER  IS  TO 
CHANGED.   G=lTO10. 

I  INDEX  VARIABLE  IN  FOR  TO  ROUTINE 

J  INDEX  VARIABLE  IF  FOR  TO  ROUTINE 

CI  NUMBER  OF  COPIES  THAT  ARE  TO  BE  MADE 

A$  RECEIVER  ARRAY  FOR  DATA  LOAD  AND  MATCOPY 

B$     RECEIVER  ARRAY  FOR  MAT  MOVE.   BUFFER  ARRAY  FOR  MATCHES 
MADE  IN  SEARCH  FOR  A  PARTICULAR  PLATFORM  OR  EMITTER. 

C$     RECEIVER  ARRAY  FOR  DATE. 

D$     INPUT  VARIABLE  (Y  OR  N)  FOR  'WISH  TO  LOOK  AT  DATA' 
AND  'HARDCOPY  DESIRED'. 

L$     LOCATION  ARRAY  FOR  MAT  SORT 

Q6$    INPUT  VARIABLE  FOR  ENTRY  OF  PARAMETERS,  PLATFORM  NAME, 
AND  EMITTER  NAME. 

W$     WORK  ARRAY  FOR  MAT  SORT. 
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PRINT 

10  REM  DEVELOPED  BY  LT  S .W . SMITH ,USN  2/12/7Q 

20  REM  PGM  TO  PRINT  A  LISTING  OF  THE  DATA  FILE 

30  DIM  A$  ("4)62 

40  PRINT  HEX(03) 

50  PRINT  "WHICH  FILE  DO  YOU  WANT  TO  PRINT": PRINT  TA3(lo);"l. 

EPL":PRINT  TAB  (10)  ;  "2  .MOB  ILE  PLATFORMS  "•:  PRINT  TAB  (10  );  "3  .  LAN 

D  FOB": INPUT  D 

60  ON  D  GOTO  70,200, 230 

70  INPUT  "INSTALL  EPL  DISK  IN  DRIVE  2, DEPRESS  EXFC  TO  CONT", 

G 

80  LIMITS  R  "EPL1F1",A1,A2,A3 

90  S=A1 

100  SELECT  PRINT  215 

110  PRINT  "ELINT   MC   NAME         FC    NTDSf"         COMMENTS" 

120  FOR  1=1  TO  (A3-2) 

130  DATA  LOAD  DA  R  (S,S)  A$() 

140  FOR  K=l  TO  4 

150  IF  STR(A$ (K)  ,7,2)  [ ]"  0"  THEN  170 

160  PRINT  A$ (K) 

170  NEXT  K 

180  NEXT  I 

190  GOTO  330 

200  INPUT  "INSTALL  MOBILE  PLATFORM  DISK  IN  DRIVE  2, DEPRESS  E 

XEC  TO  CONT".G 

210  LIMITS  R*^E0B1F1",A1,A2,A3 

220  S=A1:SELECT  PRINT  215:PRINT  "NAME  CC":GOTO  260 

230  INPUT  "INSTALL  LAND  EOB  DISK  IN  DRIVE  2.  DEPRESS  EXEC  TO 

CONTINUE", G 
240-  LIMITS  R"E0B2F1",A1,A2,A3 

250  S=A1:SELECT  PRINT  215:PRINT  "LAT/LONG        CC" 
260  FOR  I=1T0  (A3-2) 
270  DATA  LOAD  DA  R  (S,S)A$() 
280  FOR  K=1T0  4 

290  IF  STR(A$ (K) ,20,1) ]="2"THEN  310 
300  PRINT  STR(A$ (K) ,2 ,17) 
310  NEXT  K 
32  0  NEXT  I 
330  SELECT  PRINT  005:L0AD  DC  F"START" 
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PRINT 

d  data  file  selection  variable 

g'  continuation  variable 

I  FOR  TO  index  variable 

K  INDEX  VARIABLE 

S  RECEIVING  VARIABLE  FOR  SECTOR  NUMBER  AFTER  DA  LOAD 

Al  FIRST  SECTOR  ADDRESS  IN  DATA  FILE 

A2  ENDING  SECTOR  ADDRESS 

A3  NUMBER  OF  SECTORS  USED  IN  DATA  FILE 

A$  RECEIVING  ARRAY  FOR  DATA  LOAD  COMMANDS. 
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